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ATTENTION GRIFFIN FAMILY: 

Last months article on ‘The Hand 
Assembly of Programs for OSI’s Machine 
Language Monitor’ was written by none 
other than your very own GRANT GRIFFIN. 
Now are you impressed? You should be, it 
wags a very good article. Keep up the 


Good Work Grant. 


REQUEST TQ JOURNAL AUTHORS: 


Your cooperation is greatly needed if 
you have a printer and are sending in 
articles to be published in the Journal. 
We print letters, articles, listings 
etc. to 40 wide and many of you are 
geanding them in at 70 wide. If at all 
possible when sending them in please 
print at 40 wide. Also I sometimes make 
mistakes trying to read some of the 
listings sent in when retyping them. 
Putting them on cassette may save some 
aggrivating error correcting in a good 
program. With them on cassette, they can 
be printed from the computer, error 
free. Thank you for your support. Cyndi 


NO. 3 AUGUST 1982 


RELOCATION WP-6502 (PART 2) 
BY John T. Roecker 


I was overjoyed after purchasing an 
Epson MX-80 printer about two weeks ago. 
I had relocated WF-6502 in order to use 
it with my CIP with a CiS Monitor ROM. 
I knew WP-6502 was working because I 
could create a tape of an article or 
letter and take the tape to a friend who 
had a printer to have it printed. This 
was inconvenient and also could possibly 


tax ai friendship. I had the RS232 


interface populated so all I had to do 
was connect the Epson to it. IFIrana 
quick test in BASIC and the printer 
worked fine. However, when I attempted 
to use WP-6502, the printer did not! 
After much head scratching I remembered 
that I had to use a different output 
routine in my CiS Monitor ROM in order 
to output to tapes using WP-6502. I 
surmized I would have to use this 
routine to output to the printer also 
Those of you who have CiE/C2Es can rest 
@asy because these ROMs appear to use 
the standard output locations. A quick 
test checked my idea, the printer would 
work with WP-6502 with another change. A 
quick phone call to Rodger Olsen 
reinforced the need for a follow-up 
article. 

My modification to WP-6502 was to add 
anew command, the Print command, to the 
WP-4502 repertoire and to disable using 
the View command toa output to the 
printer. Those of you with standard 
OSIs or with the CiE/C2ZE monitor ROMs 
may find this new command useful. 

I used the following steps to add the 
Print command to WP-6502. All address 
locations mentioned are the original 
addresses from your nonrelocated version 
of WP-6502. All instructions with an * 
behind them will have to have their 
address fields modified to suit your 
relocations. 


1. Expand the WP-46502 menu so that the 
Print command may be added. The menu 
plus other words outputted to the screen 
are located at memary locations €070D 
through #0783. I modified the menu to 
have it look like this 

--WP 

6502 

Type 

View 

Blk View 

G/Edit 

L/Edit 

Move 

Print 

Zap 

R/Tape 


W/Tape 


‘. This is after the change: 


I used the OSI Extended Monitor to , 
relocate locations $0736 through the end SOF SBF EOS7 CPX #857 Check far 
of the cold start code of WP-é6502, - ot W/Tape 
#OFDO, by S&S bytes. Then I added the ’ ' “SOF91 DOOS BNE #OF96 | 
following data at $0736: $OF93 2OFZSOE JSR SOEFS k Ww 
$0732 4D6F76ES Move #OF9S EOSO CPX #650 Check for Frint 
$O7SS BSO7ZSIS6EF4 Print SOF98 DOOS BNE $0OF9D 
$O73EH SAGIFO Zap OF 9A 409807 IMF $0798 * Print output 
#OFSD 406504 JMP 0465 %k* Not legal 

2. Contract the View command code the command 
elminate the Pr? after View. The View #OF AQ SDOO 
command code is located at memory SOFA2 40 Starting text 
locations $0795 through *O9F9. I dropped location 
the instructions located at #0798, 
#O79A, €079D, and t0O79F by relocating 
$O7AL to #0798. & The cold start code will have to be 
oe In the process of performing these modified toa use the proper data/tenxt 
two relocations, I managed to destroy starting location. I have indicated 
two instructions. One of these stopped where this is in step 5S above; in this 
L/Edit and G/Edit from working from the case @OFA2. The amounts of the 
menu. The instruction which was relocations will have tao modify this 
destroyed for this problem was located address. I have reproduced all the cold 
at #O78F. It should have the amount of start code below. I placed my cold start 
your relocations added and subtracted code at #1024, 
from its address field. ®O78F 209408 JSR 
$OAS4 k $1G24 A94C LDA #640 Store 

The second instruction which was S1IGLS Bee STA $e warm 
destroyed caused an insert at the End of $1GL20 AGE LDA H#aGiF start 
Text to operate improperly. This S1G2A BSGs STA $82 jump 
inetruction should be: #0C46& 4CSA0OF IMP $120 AGE LDA #828 imstruction 
SOF SA x $103E S5@1 STA $@1 vo 
4, Any references which index into the $138 AGL4 LDA #$24 Stare 
WP-6502 menu may have to be corrected $1lG52 BSG5 STA $43 eld start 
becalige we added anew command. $134 APL LDA ##1¢ address 
References for commands after the new $1lGS6 Baeg4 STA $44 tee 
Print command will have to have S bytes $1829 AGE LDA #EGF Store | 
added to the immediate datas ; $lUlZA SD42G2 STA $8242 x starting text \ j 

$1G2D AAS LDA #HAS address 

GOZFA. AOSZ LDY #652 $1G3F B8D41ig2 STA $9241 * --~- 
$0465 BO40 LDY #840 $1842 Apa LDA Higgs 
#OGAD AOSER LDY #€58 $1844 8545 STA $46 oe 
$0787 AOSS LDY #855 $1G46 ADESFF LDA #$FFES Test for iP 
$0O7B4 AO4S LDY #%43 $1G49 YNGAA BNE $1455 Rranch if mat 
SO7BB CO4SE CPY #@4E $1G4eR ASL4 LDA ##14 
$O7E2 AODSO LDY ##50 $1G4D S8pz4ee x 
SO9BO AOSD LDY #8#6D $1850 AFF LDA Fé PF 
BOOSFO AOSD LDY ##6D $1952 SD4GG2 STA 8824G x 
SOASB ANGO LDY #440 $1855 4CIgge IMP sere Jump to warm start 


$OBI2Z AQSE LDY #83E 
SOB4D A071 
$ODO1 AQ6O LDY #860 
ODOC ANSO LDY #8460 
$OD44 A066 LDY #866 
$OE19 AOSO LDY #839 
$OEA9 AOSD LDY #84D 


The immediate data in the instructions 
located at 1028 and $102C will have to 
be modified to suit your relocations. 
The immediate data in the inatructions 
lecated at $1030 and #1034 point to the 
cold start code. 

The immediate data at $1039 and #103E 


3.» The warm start code will have to be Will have to be modified to point te 
modified so it will recognize the Print your starting text address. 

command. Those of us with C1iS/C2s8 Now, after much blood, sweat, and 
monitor ROMs will have to add this check some tears those of us with nonstandard 


after the switch to the new output monitor ROMs installed may use WP-6502 . 


routine which was added in the last ™ To @liminate all this work, all machine 
article. - « Llanguage/Assembler code should start at 
This is what the code looks like a sltitably high address. The 


Assembler/Editor starts at location 

$0240. I feel this would be a good 

starting address. Then anyone with 

standard or nonstandard monitor ROMs may 

use your program. a 
I have made additions to WP-6502 to 

utilize some of the features of my C1iS 

manitor ROM. These additions will be the 

third article in this series. 


before the changes 

$OFSF EOS7 CPX #8357 Check for W/Tape 
$OF91 DOOS BNE #O0F96 a 
$OF9S 2ZOFSOE JSR $OEFS x 
SOF 96 4C6504 JMP #0465 & 
command 


Not legal 


RON WHITTAKER, SALT Lk CITY, UTAH 


Several weeks ago I wrote to R. Olsen 
describing the way I have modified my 
CIP soa that the Video Mod II and the 
disk system both work. I algo mentioned 
that I have the OS6SD V3.5 operating 
gystem and that I had not yet been able 
to modify it to make use of the Video 
Mod II’s wider digplay. 

Since then, I have spent many hours 
trying to unravel the inner workings of 
the operating system. At last I have 
been successful! The patch to the 08 is 
extremely simple to perform, even though 
I still don’t understand it completely. 

It seems there ig a block of data 
bytes which starts at $3205. Part of 
this block is swapped with page zero 
locations EQ-F7 which is then used to 
control gize and location parameters of 
the video display. Only three of these 
locations needed changing to alter the 
basic display. The byte at $3269 is set 
at $17 by O8S63D and is the number of 
lines in the display. The byte at #32EA 
is set at $17 also and is the number of 
characters per line. The byte at *#32EB 
is the lower order half of the location 
of the upper left corner of the digplay 
and is set at 65. ($DO ig in ®32EC. 
This is the high order half of this 
address but does not need tao be 
changed.) If these three locations are 
changed, the video display is also 
changed. However, if any of the PRINT! 
commands are used, either from within a 
program aor from the keyboard, the 
display reverts back to the original 
size. These PRINT! commands are new to 
OS6S5D V3.3 and control cursor location 
and movement and invoke special screen 
and line clear functions. I. found three 
more data locations, €32F2, €32F3, and 
$32F4 which correspond to the same 
parameters as the first threes i.e. 
number of lines, characters per line, 
and upper left corner, respectively. 
These latter three locations are not 
gwapped aut to page zero but do control 
the PRINT! commands. By POKEing new 
Values to these locations and then 
SAVEInNgG these locations on disk, the new 
display parameters become a permanent 
part of the operating system and will be 
automaticallyloaded each time the disk is 
booted. There is one word oaf caution! 
All gix POKES must be performed at the 
game time with no video accessing in 
between. Otherwige, the changes may be 
modified by the video access before they 
are completed. The following BASIC 
program will make the necessary changes 
to the six locations and then save the 
changes on the disk. RUN the program 
with each diskette that contains O86S5D 
V3.3 and each will be changed. 


10 PRINT! (28) sREM...CLEAR SCREEN... 
20 REM...POKE CHANGES... 

30 

POKE1 303%, 272 POKE13034, 31sPOKE13035, 64 
40 

POKE13042, 27:POKE13043, 31:POKE13044, 64 
SO REM...SAVE CHANGES TO DISK... 

40 DISK! "GAVE 13,1=3274/8 


He dee Ho He He ok 


BOAO OHO HCHOIOK 


— 


The values I"ve POKEd into the six 


“locations provide the maximum display 


size for my monitor which ig a TV 
modified for direct video input. Other 
values may be needed for other systems. 


MUSIC FOR CiP 


For those of you who couldn’t get 
Gerald Artman’s Music program to work I 
think I may have the solution. =I 
misplaced the cassette and didn’t run 
off a listing. Sorry about that Jerry! 
Well here it is. (see June 82 issue for 
the rest of the article if you missed 
it.) Hope you enjoy it. 


WOK ARORORGRGGE RIGID 1D. ARTMGBM Go. RM KA 


DRE Tio 
h 


| RPGR AOR AGG AGA ES EMERGE AD 0 DD. HOR GR AOR 


HORN He He HE He 


t 


4 REP DORR ROR AGKENOY AL Gear, AL, SSRIS HK 


ny cu Rad 
sad * 


Spacey P  cose chee pore J00 p0ee sone ones 
Delete rem, 


hE 
Pie M4 btype anly Se-1O mumbered stateme 


&y 


mts. 


2 REM SET UP NOTE ARRAYS, . Ferree IM Piz 
1O DIMN® (19) ,F 418) 


he FORX=1 TOL: READN& OX), FOX) a NEXT 


Ye CES 


feos” 


28 DATADH, S11.13;EF, 311. 15,8, 329.43,7F,3 
a. 


op come on 
of neg wer ae 
: Tre 


oe “aat 
BO DATAPH, 349. 99,6F,369,.99,6, 391.99, GH, 


oe ee ee, 


u i és 


40 DATAR, 493..98,0, 15.13 


49 FEM INPUT NOTES ROUTINE 
SO PRINTS PRINT: INFUT"NEW SONG OR SDD’ sF 
Sar XE AYES 


60 INFUT“TEMPO-BEATS PER MINUTE": Ta PRIN 


Ta PRINT 


So INFUT "NOTE BEAT VALUE (0.0) "3 Be Pies, 


QUHENFRINT “ TNVAL ITD’ s Grogs 


49 REM OCTAVE 1 IS C BELOW BASS CLEFT 
7O INPUT“OCTAVE C1—8) "sO: [FO 2S0RQ< 1 THEN 
“RENT OINVAL TD! sGOTOTO 

7S INEUTONOTE NAME": NMS: TENNG= "END" THEN 


At} : 


Sal 


Po TF O=4 THEN oF 5 #2 
LOO TRO A THENP Sek & #4 
LOS DR Oe 2 THEN fies Sf 2 
210 Dll COR RSO) £/T) XFS 
Lis DHe INT (DU / 254) 

et) DLE TAT COU-DHE ES) 
ms DHS DH 


145 LP NNS= O° THEN sed 

149 PEM IF CORRECTION FOKE IN REPLACEME 
NT 

180 [PETHENFORE4096+0 #3, DLs POREIO9 a+ 140 
#3, DHs PORE4O94+2+043, FO: GOTOL9IO 

iS4 REM PORE IN VaLUE DIRECTLY 

155 PORE@O9S4+x%, Dla Xe X41: PORE 4O9S+%, Dea X 


Ley oe hes JT END OF NOTE MAREER ak 

L460 NS= Xs PORME4o9S4+%, G2 PORE4O9S4+ e411 oa Po 
bE Aba SP Se er Page aga 8 eR 3 

164 REM FL. é Yo ROUT TMs 

LS5°POREBSS296, 17s PRINTCHRS (es) cae 

he ‘ rs | SHIFT 10 START’ WALT S7io0 


AVS) PORE LG, 12: POKES, 2: X8USR OO : PORES 
296, 12 PRINTCHRS (25) 

[0 PRINT: PRINT: INPLIT!REPLAY"; ae: IFAs" 
Y"THENL 6% 

189 REM. MENU 

(90 FORX=1 TORO: PRINT s NEXT: PRINTS PRENT OO 
ET TONS ss PRINT s PRINT 

Lo PRON Ve Dd? A NOPE? eee 

Zu PRINT" GET SONG FROM TAPE’ SPRINT’ INF 
UT NEW ORIG" ERRIAM PT SAVE SOME" 

ele PRINT PLAY" s PRINT: PRINT? INPUT" CHOIC 
BU aie Te Ase G THEN LAS 

10 [FAg="1"THENSO 

215 [FP At= "9" THEND7S 

mek! TP AS= UE ' THEN TOS 

food FASE" E YU THEMES ds MPU TONMOTE MUOMEd ER" 
(pC Cel-1: GOTO6O 

woo iT SO 

e2o4 REM GET ROUTINE FOR TAPE INFUT 

goo INFUT"NEW OR ADD TO CURRENT NOTES"; 
Aés TPaAS= UN PHENMSN=1 2 GOTOR4S 

240 SNM=NMS 

eS PR INT'START RECORDER AND HIT SHIFT" 
PWATTS7100, 254, 254: POKE S15, 255 

oes ed REM LOOK FOR HEADER 

e2ow INPUT Ks TP K< 2OTHEN2ZSO 

ant INPUT Xs TR XASOTHENZSS 

cor KEM READ IN AND FORE OLTRECTLY 

eau INPUT Ds Lr Derers Heals 70 

moo FORE 4O9S+5N, Ds SN=SN+1s GOTO2L GO 

2/7. POKESIS, 02 NGS=SN—-32 GOTOL9O 

oe? 4 REM OU TEUT TO TARE ROUTINE 

2fa PRINT WHEN READY TO RECORD HIT SHIF 
T's WATTS 7100, 254, 254 

279 REM FUT HEADER ON TAFE 

2930 POKESL7, 253s FORXK=17TO1LOsPRINTOs NEXT: 
FRUMT RSS: X= 

284 REM GET VALUE SEE IF END MARKEIER 
2 D=FEEK (40954+X):X=X+ds TFDOR CREEK (405 
wba) PEO THENSSS 

270 PRINTOSPRINIL SPRINT SS9 es PRINTS PRINT 
sGOTOS00 

27o FRINTDsGOTU28o ~- 

OO FPORCSI 7.08 GOTOL SO 

204 REM MACHINE LANGUAGE ROUTINE FOR MU 
ma ie 

20S READN, Nes FORK =NTONSs READGs FORE, GaN 
EXT 

o10 Ge INT (N/256) sPORE IT 2.tsPOQRELL, N-tike 
4 sETURM 

2d DATAROGO, 691 

oe DATALE oi ee Aa yy hea bP Oy 20S ete 
m4, 224, 24, 234, 2354, 254, 234, 25-4 

aed DATARS, 224, ae y oOAty ey ett, COR. 25 
y 24 5 f} " 2An a i) “ 4, t) 9 cs 240, 0 

ool DATARAO, O, tas. 0. 142, fy ete & Pilg Uw 
4, 234, 234, 25 4: eof, 234, 4 

aed DATARS4, 234, 2 S42 moth y OA, hy ROA A 
,29083, 238, 198,243, 208,5,198, 244 

240 DATALONS, 190,96, 240,00, 240,00, 208, (a3, 
2E4,149,0, 133,240,169, 14 

oS DATALAS, 241,169, Pata a dooty eee Ee De 1 
#7 yp Os LSS 5 ZAG, 200, i Ot | ny betas 

ot) DA Tee 44, OO, 17, 24, 03 pute Leia ay of 
14 1, 240,22, 32,48, 2, 200 


“4 
we 


S55 DATARA, 152,101,240, 135,240, 144,2,25 


Veet lea 1Gey Sig Oe, 208 ee ee c= 
wil) DATALI0, 2,96, 229 
se kdl) 


KENNETH BOOTH, BOSQUE FARMS, NEW MEXICO 


Of all the BASIC commands, I cannot 
think of one as useless as the LET 


command. Ite use is optional so I \ i 


personally never use it and have never 
gotten into trouble because I didn’t. 
What I would like tao have igs a BASIC 
command that would clear the screen for 
ma. An instant machine code screen clear 
would be of much greater use to me, and 
probably to you, then the LET command. 
The new command, call it SCL, would be 
just like any other BASIC command in 
that it wouldn’t require the preliminary 
getup that the USR(X) function requires. 
Just enter SCL and the screen is 
instantly cleared. And it would work in 
the direct mode or inside a program. My 
BASIC now has this command and = your 
BASIC can too, but, if you feel that you 
cannot do without the LET command then 
read no further because we are about to 
do away with it. The modifications to 
BASIC to enable us to do this are very 
simple and we will also incorporate 
sone modifications to BASIC’s addition, 
subtraction and multiplication routines 
that enable BASIC to run between 10 and 
30 percent faster ! 

How does BASIC know where to go when 
it encounters a command? Qur BASIC, like 
most others, uses a look-up table to 
find the command and a dispatch table to 
know where to go once it has found the 
command. The look-up table is a 
sequential list of all the commands in, 


our BASIC’s inventory and the dispatch \_/ 


table iw a sequential list of addresses 
of routines that service these commands. 
The position of the address pairs in the 
dispatch table will match the position 
of the commands in the look-up table. I¢ 
BASIC found a match for the encountered 
command at position 8 in the look-up 
table it would go to the 8th address 
pair in the digpatch table (lo byte-hi 
byte form, naturally) add i to the lo 
byte and branch to that address. If 
BASIC doesn’t find a match, program 
@xecution cannot continue so BASIC 
branches to an error handling routine 
and kicks out those error codes that we 
all dearly love. The above explanation 
ig greatly simplified but with this 
information we will be able to remove 
the LET command from the look-up table 
and insert out SCL command and place the 
proper address to service the SCL in the 
dispatch table. 

On disk based machines running under 
O865D V3.2, the look-up table is located 
at $0284 and the dispatch table is 
located at $0200. If you have never seen 
a@look-up table, take «a minute to look 
at it. Boot the Extended Monitor, call 
Track 2 into memery starting at #4200 
('CA 4200202,1). Disassemble the code 
starting at $4284 (04284). =Shift P). | 
The EM will display the Hex value of | 
that memory location. Enter Shift 2. The 
EM will print the contents of $4284 as 
an ASCII character. Hit the line feed 
and the EM will display the next memory 
location. Enter Shift 2 again. If you 


continue oniin this fashion that bunch 
af junk will start to make sense because 
BASIC’s look-up table for commands will 
start scrolling up the screen. END is 
firet, FOR is second,. and so an. LET 
will be the 8th command on the list. The 
address for the routine that services 
the LET command will be the 8th address 
pair in the dispatch table. When BASIC 
encounters the LET command it will 
branch to #%O9A6. 

If you noticed that the ASCII value 
of the last letter of every command does 
not match the true ABSBCIT value of that 
letter you may be puzzled. Bit 7 of the 
ASCII value of the last letter of every 
BASIC command is set. All basic has to 
doa igs count the number of times Hit 7 is 
geet and it always knows where it is at 
in the look-up table. 

The speed modifications incorporated 
into the program are not my own. The 
original idea and program came from Mr. 


arithmetic routines, Sauter gives wus 
enough roam for our screen clear without 
using any free RAM. A big TALLY-HO to 
Mr. Sauter for an excellent 
article--read it for all the details on 
the speed up. 

Please refer to the BASIC program 
listing. Line 100 calls Track 4 off of 
disk and into memory so we can modify 
it. Lines 200-260 POKE in the speed 
fixes along with our code for the screen 
clear. Line 300 modifies a branch 
instruction because of the revised code. 
Lines 400-420 POKE in more revised code 
for the speed fix. Line 5300 saves the 
modified code out to disk. Line 600 
calle Track O2 off of disk and into 
memory 80 we can modify BASIC’s look-up 
and digpatch tables. Lines 610-4630 
modify these tables. The LET command is 
removed from the look-uptable and SCL is 
ingerted in ite place making sure that 
BIT 7 of the ASCII value of the letter L 


John A. Sauter of the University of igs get. The address for the routine 

Michigan. His article appears in the May that wervices LET is removed and the 
1981 issue of BYTE magazine. In his address of our screen clear is inserted 
article, Mr. Sauter describes the bugs It starts at $1862. Line 700 saves the 


in O8IT BASIC’s addition, subtraction and 
multiplication routines 


an article to 
fix im my 
place toa 
clear. By 


stash our code for the screen 
tightening up the code in the in a 


madified code back to disk. 

The program as submitted functions as 
advertised but it would be a good idea 
to have a back-up operating system 
avallable before you run it. One mistake 
DATA statement will crash a disk 
and make it useless unless you have a 
back-up or facilities for copying. 


and he submits 
fix them. I included his 
program because we need a 


i198 REM----BASIC SPEED ENHANCER--——— 

2@ REM----BASIC SCREEN CLEAR-—-—— 

39 REMN---——-KENNETH D. BOOTH--——— 

49 REM--——-875 FOXCROFT LOOP--—— 

59 REM—-—--—-BOSGUE FARMS, NEW MEXICO-—— 

6 REM---595 869-3945-—— 

99 REM--CALL TK 4 INTO MEMORY SO IT CAN BE MODIFIED 
95 REM--$ 4299-16986 dec. 

199 DISK' "CA 429G=04, 1" 

159 REM-—-NOW POKE IN CORRECTED CODE 

166 REN--CORRECTIONS ARE AT $4854 THRU $4884 


298 FORX= 


2198 DATA 
228 DATA 
234 DATA 
246 DATA 
Zoe DATA 
269 DATA 


185167018544: READY: POKEX, Y: NEXT 
118,2,118, 3,118, 4, 194, 194, 209 
298, 232, 24, 96, 234, 162, 216, 149 
288, 133, 254, 169,9, 132, 253,169 
32, 145, 253, 299, 298, 251, 239, 254 
228, 254, 208, 245, 96, 234, 234, 234 
234, 234, 234, 234, 234, 234, 234, 234 


Listing #1 
Basic Program That Effects 
The Changes Described in Text 
and Listing #2 and Listing #3 


239 REM—-CORRECT BRANCH AT $4846 TO REFLECT 

299 REM--OUR REVISED CODE. THIS IS AN IMPORTANT 
295 REM--POKE. SYSTEM WILL LOCK WITHOUT IT. 

3GG POKE19592, 24 

35@ REM--POKE IN MORE CORRECTED CODE 

36@ REM--CORRECTIONS ARE AT $4946 THRU $4954 


499 FORX= 


4ig DATA 
424 DATA 


187587018772: READY: POKEX, Y:NEXT 
192,115, 192,116, 192,117,192,118 
192,189, 152, 74, 288, 214, 96 


45@ REM--SAVE REVISED CODE OUT TO DISK 
590 DISK! "SA G4, 1=4299/8 

558 REM--CALL TK @2 INTO MEMORY SO WE 
544 REM--CAN MODIFY BASIC’S LOOK-UP AND 
578 REM--DISPATCH TABLES TO USE OUR 

589 REM--SCREEN CLEAR ROUTINE. 

649 DISK'"CA 426G=92,1" 

6i1@ FORX=17954TO1 7856: READY: POKEX, Y: NEXT 


6208 DATA 


83,67, 284 


634 POKE16919, 97: POKE16911,24 
640 REM--SAVE CORRECTED CODE BACK OUT TO DISK 
788 DISK! "SA G2, 1=4298/8 


5 


SU0 12394107) 
49$Y PUB Bu0Fsag 
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COMPRESSER 
by James B. Perkins 


COMPRESSER is a program, written in 
Ragic, to allow more efficient use of 
Valuable mini-floppy storage space. 

I have found that, after only three 
months as a digk user, I’ve acquired 
twenty or 60 partially filled 
mini-floppies with one or two track gaps 
scattered throughout due to file 
deletions. Usually, I can find room 
amang the good files for a short program 
I happen to be working on but, 
eventually, a new floppy has to be 
initialized to accomodate a larger 
file. 

COMPRESSER will elminate all of these 
unused track gaps by copying all of the 
named files in the Directory down to 
cansecutive tracks starting at Track li. 
The entries in the Directory are altered 
to reflectthe new locations of your 
files. If there are no gaps, then no 
effective action is taken as the program 
rungs to completion. 

A word of caution here! If you have 
gaved by track number that are not named 
antries in the directory, they may be 
overwritten during the process. 

While the program is written to take 
advantage of the extensions to Basic 
under OS65DV3.3, there are some changes 
noted later on that could allow it’s use 
under earlier versions. 

I have used screen memory at %D200 
thru @DSFF as a buffer for the directory 
partly, in an effort to save workspace 
memory but, aleo because its a lot more 
fun to watch the track number being 
shuffled during execution than to stare 
at a static screen display. ‘(You ought 
to see how I celebrate the 4th of 
July.) | 

Even though the program does not 
formally open or cloge disk files, it 
does require one buffer (Device #4) be 
provided when the program ia typed in, 
as thig area is used as a buffer by the 
CALL and SAVE commands. If you wish to 
eliminate this buffer from the program 
to gave a track in the program file, 
them COMPRESSER can be modified by 
pokeing to i133 and 134 to previde a 
headspace buffer at the end of BASIC 
workepace memory. Lines 1190 and 130 
should alse be changed to use the 
address of this new buffer. 

Line 400 thru 420 are the 
instructional messages. 

Lines S30 thru 620 establish the size 
requirements of Array DYZ, needed to 
hold the valid Directory entries and to 
load those entries into the array. 

Lines 20 thru 46 are a subroutine to 
gart the entries by track number for 
program uge only. The order of entries 
in the Directory will be unchanged after 
program execution. 

Lines 640 thru 730 are the working 
meat of the program. This section 
lecates unused tracks and calls the 
subroutine at 100 to copy higher tracks 
down. It also updates the Directory 
buffer as it goes. 


¢ 


Lines 731i thru the end write the 
Directory buffer back to track 12 and 
terminate the program. 

The TRAP commands at Lines 100 and 
1460 are necessary to accomodate the 
possibility of a multi-sector track such 
as are encountered when saving machine 
language object programs or as used in 
the Directory itself. 

Speaking of the Directory, if you use 
COMPRESSER on a data disk thalhas unused 
tracks below the Directory, the 
Directory will be moved right along with 
everything else, thus rendering all of 
your fiele inaccesgable. Nice huh? While 
I’ve made no provision to protect the 
Directory, a line of coding at Line 655 
Such ass 
655 IF DY4ZCY,1) #12 THEN 'NT#13:G0T0730 
Should do the trick. Siffce I am still 
the humble owner of a single disk 
eystem, I like to keep the whole 
operating system on each floppy and this 
candition has not effected me. 

Back to the Trap commands, if your 
files are entirely in Bagwic, they are 
always whole track multiples and, as 
such you won't need to provision for 
multi-sector copying. You could, . 
therefore, remove those commands and 
move your Directory buffer off the 
screen and then delete all references to 
V3.5 Extended print commands such as 
"PRINT! ( to enable operation of 
COMPRESSER under V3.2. 

The reason that Line 160 contains a 
GOTO700 instead of a RETURN is that use 
of the Trap command seems to clear the 
stack of all FOR/NEXT loops and RETURNS 
from subroutine. Nasty business! 

The peeks in Line 129 yield the 
sector number and number of pages in 
that sector that the DISK! "CALL" picked 
out of the sector heada* on the disk. 
9821 is also useful de it holds the 
track number read from the header. These 
are listed in the PEEK/POKE list 
included in the V3.3 documentation but 
the description of them igs vague. Its 
surprising the things you can find using 
the Extended Monitors string search 
features and a few lucky guesses. 

One further disclaimer, while I 
haven’t lost any files yet, you might 
want to make back-up copies of your 


irreplaceable files before running 


COMPRESSER until your confidence is 
established. 


REM DISK COMPRESSER 
REM JAMES B. PERKINS 
REM 7267 FAIRWOOD. DR. 
REM INDPLS IN 46256 
REM 317-849-9899 
REM 19 JULY 82 é 
1@ GOTO4aa | 
26 DIMSF%CNE), S%CNE} > 
22 Z=1:GOSUB28: GOSUB4B: GOsuBsa. 
24 2=2:GOSUBZ8: GOSUB3a 
26 2=3:GOSUBZ28: GOSUB3a 
28 FORX=LTONE: SF%CXI=DY%(X, Z): NEXT: RET 
URN 
3Q@ FORX=1 TONE: DYM(X, Z)=SF%C SX%OX) J: NEXTX 
> RETURN 


Nu pWN 


46 FORX=1 TONE: P=@:F ORY=1 TONE 

42 IFSFACKIOSFACY JDTHENP=P+1 

44 IFSFACKI=SFACY JANDX= SYTHENP=P+1 

46 NEXTY: SACP J=K: NEXTX: RETURN 

1966 S=1:WAIT16a 

1@S S$=STRS$CS 1: S$=RIGHTS(SS, LENCS#)-1) 
446 DISK!*CH SATE=*+RTS+*., “+5% 

124 P=PEEK( 9823 ): S=PEEK( S822 ) 

125 PS=STR#CP 2: PS=RIGHTS(PS$,LENCPS 3-13 
138 DISK! "SA “+NTS$+", “+S$+"=3A7E7"+P$ 
146 IFP< 7THENS=S+1:GOTO1G5 

158 RETURN 

166 WAITG:PRINT!(15):GOTO7rae’ 

496 PRINT!(28):PRINT:PRINT:PRINT:PRINT" 
COMPRESSER™ 

482 PRINT:PRINT:PRINT" WARNING! !":PRI 
NT:PRINT* FILES NOT IN DIRECTORY" 

464 PRINT" MAY BE LOST" :PRINT:PRINT 

406 FORT=1TOS8G: NEXT 

468 PRINT" INSERT MINIFLOPPY TO":PRINT" 
BE COMPRESSED INTO" 

416 PRINT" DRIVE A*:POKE2888, 9: POKES?22 
B , 

412 INPUT" PRESS <CR>";G% 

424 PRINT!( 20) 

51@ DEFFNACX I=X-INTCR/16 #1 64+INTCX/16 0% 
18 

526 DEFFNBC X =X-INTCR/41B #1 G+INTC X10 * 
16 

5386 DO=5376@: DT=D0+565 

546 DISK!"CA D266=12,1": DISK! "CA DSB8=1 
2,2" :NE=0 

956 FORY=DOTODTSTEPS: IFPEEK(Y+7 3< >@ THEN 
NE=NE+1 . 

266 NEATY: DIMDYACNE, 33: DP=1:PRINT!(18) 
o7@ FORY=6TOS64STEPS 

586 IFPEEKC Y+00+7 )=@THENG2@ 

536 DY%CUP, 1 J=PEEKC Y+D0+6 3: DYX%C DP, 23=PE 
EKCY+DO0+7 ) | 
666 DYA*CDP,33=Y 

618 FORX=1T02: DY%C DP, XJ=FNACDYXCDP, XJ); 
NEXTX 

615 DP=DP+1 

626 NEXTY 

622 PRINT” SORTING"; !(€18) 

638 GOSUB26:NT=1 

646 Y=1 

654 IFDYACY, 1=<NTTHENNT=DY%( Y,2)4+1:G0T 
0736 

664 FT=NT:RTM=DYXCY, 1) 

674 NTS=STRS( NT): NTS=RIGHTSC( NTS, LENCNTS 
Pai 2 


688 RT$=STRSCRT% }: RTS=RIGHTS( RTS, LENCRT | 


$)-1) 
698 GOSUB18G - 

788 NT=NT+1:RT%=RT%4+1: IFRTY<=DY%CY, 29TH 
ENS7a@ 

71@ LT=NT-1:DP=DY%CY, 3)3:FT=FNBCFT ):LT=F 
NBCLT) . 

720 POKEDO+DP+6, FT:POKEDO+DP+7,LT 

738 Y=Y¥+1: IFY<NE+1THENGSS 

731 DISK! "SA 12,1=D290/1":DISKI"SA 12,2 
=D30@/1 | - 

74@ PRINT!(2@):PRINT:PRINT" DISK COMPRE 
SS":PRINT" COMPLETE" 

758 PRINT" NEXT AVAILABLE":PRINT" TRACK 
IS";NT:PRINT: PRINT 

768 INPUT" <CR> TO CONTINUE":G% 

778 POKE2888, 27: POKES722, 27: RUN" BEXEC#" 


JOHN SEYBOLD, FULLERTON, CALIFORNIA 


IT want to thank Mr. Price for that 
wonderful screen print program that he 
had in the April issue of the Journal. 
It works very nicely for printing plots 
that you have on the screen, provided 
that you use characters that your 
printer will recognize of course. Like 
mast of Journal readers though, I seldom 
leave well enough alone. Below is a 
madified listing of Mr. Price’s 
program. 

The most significant modification 
that I made waa to adjust it to print 26 
instead of 21 lines. This enables the 
program to print any headings or 
subtitles that you might have. I then 
went on to put multiple statements per 
line to reduce memory use. As can be 
seen from the sample run, you can naw 
get the entire visible screen printed. 
The final change that I made was to 
reverse the logic in line So, for - 
deciding when to stop reading the 
Screen, to gave a few extra bytes by 
@liminating one goto. 


1 REM SCREEN PRINT JOHN PRICE KNOXVILLE 
TA 

2 REM FROGRAM SCANS VIDEO MEMORY 
LOCATIONS THEN PRINTS 

3 REM THOSE CONTENTS TO A LINE PRINTER 
4 REM REVISED BY JOHN S SEYBOLD 
FULLERTON CA 

~ REM AARDVARK VOL 3 NO 1 PAGE 9 

10 DIMS (24, 26) s>C=S33812 D=S534058 X#O2 Yi 
20 FORA=CTODs X=X+1 

S30 Z=PEEK (A) 1S(X,Y) Zs IFX=24G0TO0S0 

40 NEXTA 

ra] @) 
YaY¥+1:C=zC+321D=D+322 X=Os IFD<54174G0TO020 
60 SAVE: FORY=1 T0263: FORX=1T024 

79 PRINTCHRSE (S(X,Y)) ga IFX*@24THENPRINT 
BO NEXTXsNEXTY:s POKES17, Os END 


FORIT=OTO20: ?TABCI) a Is NEXTs RUN 


@ . 


DON VANSYCKEL, MIDDLEBURY, VERMONT 


IT am running CBF with O&S65D V3.2 and 
have been experiencing a peculiar 
problem. One program which I wrote uses 
several arrays dimensioned at 358. 
Oceagsionally, the sytem would get lost 
and forget where the arrays were 
located, In fact, a print of element #1 
in the BASIC immediate mode would return 
a bad subscript (BS) error. The system 
must have found the array name or I 
would think it would have generated the 
array again and found the element. 

Time passes and I made a few minor 
changes to the program. Now, 
occasionally the last defined arithmetic 
Variable will get clobbered. Some af the 
arrays are integer arrays but most are 
string arrays. I’1ll also mention here 
that at no time have I ever gotten an 
Gout of memory (OM) error. Also, the 
gQlitch happens at various points in 
loadin the arrays. I might get half the 
data in and the system will glitch. I[°1l 
then restart the BASIC program and the 
whole thing runs fine. The only 
difference in the two runs of the 
program igiin data entry. As each block 
of data igs entered it is displayed and 
corrections may be made to individual 
items. Between the two runs the number 
of and/or size of intermediate strings 
wae different. 

Time passes and I goat the idea to 
delete some BASIC code, utility package, 
to give the variables more room. Since 
that time I have not experienced the 
glitch again. The problem ig that I woud 
like to add some more code to the 
program but have no idea how much is 
gafe to add before the system will 
glitch. | 

I have calculated that variable 
memory igs large enough to easily hold 
all the variables. Algo, extensive 
memory diagnostics have been run several 
times. However, under some conditions I 
think the garbage collection routine 
writes a string over the last arithmetic 
variable and then one of two things 
happens. 

1. The arithmetic variable is read and 
has a bad value stored in it. 

2. The arithmetic variables has a new 
Value written into it which overwrites 
the string header (which should not be 
there): then, when the string is called 
the system can’t find the string. 

Possibly one of your readers has 
golved this problem or can define it 
better so that it can be avoided. 
Hopefully someone has patches to BASIC 
which they’ll share. 


WAYNE MC RICE, SAN FRANCISCO CA 


I recently added the 8K memory board 
from AARDVARK to my CIP. Presently, I’m 
using it without the PIA and I"ve got 4k 
on the board go far. 

I've come to realize, as I expand the 


memory, the importance of being able to 


locate a bad 2114 ghould the need arise. 


The program for teating ‘memory that’s 
included in the data sheets for the 
board is, as stated, very:reliable. But, 
aleo as stated, it is very slow. 

Now if you're as addicted as I am toa 
punching away at the keyboard and 
gtaring bleary eyed at the monitor for 
hours on end, then having the machine 
tied up for five and six hours to run a 
test isa akin to going cold turkey. 

Well, wait no more. Here's a program 
that’s just as efficient but a little 
less time consuming. The testing is done 
at the machine code level, and only 
returns to BASIC if there’s a bad memory 
location or the testing is completed. As 
written, it's set up to test as much 
memory as possible. So it starts at 
$0400, Blightly behind the BASIC 
program, and runs to the end of RAM. In 
my case that’s ®2FFF. But I assumed that 
mogt would have their boards fully 
populated if they have ase much patience 
age me, but a few more dollars. So it’s 
written to test to the end of 
ISK (SSFFF), and I’ve included the 
necessary changes for 12K, SK and 4K. 

When I run it in my machine from 
$0400 to S2FFF, it takes about three and 
i/2 minutes with no enits for errors. 
So, it’s ever with before I start 
getting the shakes. | 

THE WAY IT WORKS 


The object is te put a byte of data in 
gach memory address in RAM then check 
that address to see if it’s acutally 
holding the. data just stored there. 

In the first half of the test, 
Register "A" is loaded with the data 
then stored at the first memory address. 
The data just stored is then immediately 
compared to the data in "A". If they are 
the same, the memory address is 
incremented and the same thing i6 
repeated at the new address. If they 
aren’t the same, the program first 
changes the Lo Byte of the User pointer 
at $000B then exits toa BASIC to print, 
in decimal, where the error ig, what 
number was poked into the address, and 
what number was returned. Then it jumps 
back into the program via the User 
pointer, resets "A" to what it wags, 
increments the memory address and 
continues. The "X" and "VY" registers are 
used to test for the end of RAM. They 
are also reset if the program exits for 
an @rror call. After each address has 
been checked with this byte of data, the 
data in "A" ig incremented, the address 
reset to the beginning. and the entire 
process is repeated sca that every 
location igs tested with data from $00 to 
FF, 

The second half of the program is 
only slightly different. Register the 
addresses. After all locations are 
loaded, they are checked, one after the 
other, to see if they are still the same 
as "A". If go, the same happens as 
before. The User pointer is changed, the 
program exits to BASIC to tattle, then 
returns and continues. When the Hi Byte 
of the memory address being tested 
matches the data held in "X", the 


testing is complete. This ig done for 
both halves of the program. When the 
match ig made in the second half, the 


program terminates. I imagine about five 
minutes for 16K if it doesn’t stop for 
errors. 

If, for some reason, the program is 
run again immediately, certain addresses 
must be reget by hand by going into the 
Monitor. #002A, 2D, 76 and 89, which 
hold the Hi byte of the address being 
tested, will now contain $40 in the case 
of 16K. They have to be reset to #04. If 
there were any exits for errors, the Lo 
Byte of the User pointer will also need 
to be changed back to #22. So, with a 
maximum of five changes, it’s ready to 
go again. 

There are two BASIC programs here. 
One is the DATA program and the other is 
the MAIN program. 

The first step is to type in the DATA 
program and RUN it. If you want to SAVE 
it on tape, type it in and SAVE it 
before RUNning. It has a NEW command in 
line 25, and after it runs, the data is 
left in page 2 but the BASIC program is 
cleared out. The DATA program also sets 
the User pointer at $0008, C. 

The second step is to type in the 
MAIN BASIC program. When it’s in just 
RUN it. 

The other method for loading the 
program, and I believe the easiest, is 
to first put in the MAIN program, then 
go into the Monitor to $0222, and use 
the disassembly listing to load the 
data. Be sure to put $22 into $O000B and 
$02 into #000C. Then Warm start and 
RUN. 

If you want to SAVE the disassembly 
on tape and load it directly into the 
monitor for use and you don’t know how 
to do this yet, get a capy of THE FIRST 
BOOK OF OSI. There's a lot of good 
stuff in there. It’s worth far more than 
it’s price. 

0.K. 80 maybe you 
either. With a few quick additons or 
changes the program can be adjusted to 
whatever you like. 

These are the changes for 12K, 8K, and 
4K s 
To the BASIC DATA program add line 22. 


don*t have 16K 


(FOR i2k) 
2e POKES47, 48: POKE613, 481POKE623, 483 
POKE699, 48 


(FOR 8K) 
22 POKES47, 32:POKE613,32:...ETC. 


(FOR 4K) 
ee POKES4S7,162...ETC. 


In the 
20 & 35 


MAIN BASIC program change lines 


(FOR 12k) 
20 IFPEEK (A) 48THEN...ETC. 
SS IFPEEK (A) =48THEN...ETC. 


(FOR 8k) 
20 IFPEEK (A) @32THEN...ETC. 
3S." "32" »o ct ETC, 
(FOR 4k) 


29 IFPEEK(A)=16... 


BS ty Ty 46 68 “mis, oe 


10 


To the DISASSEMBLY LISTING change 


these: 


ADDRESS i2k 8k 4K 


$0225 ZO 20 10 
$0265 ZO 20 10 
$O26F SO 20 10 wo 
¢02BB 30 20 10 


If you’ve never had the misfortune of 
getting a bum 2114, that’s great! On the 
other hand, if like me, you have, then 
you probably are aware of the agony of 
trying to isolate it. And if you were 
really unfortunate, and put 2 bad chips 
on your board at the same 

time. sew eWellILidlewaannnnne 


Last, but of course not least, I’d 
like to express my appreciation to the 
people at AARDVARK for their efforts to 


shed some light on the mysteries of OSI. 
Without your work I fear there would be 
a lot more dark corners than there are. 
I’ve learned more from the listings 
to your games and the data sheets and 
the Journal than I could have possibly 


have learned from any other source. I 
have to mention the FIRST BOOK OF OST 
again here, also. For me, it’s been a 


real treasure. 
BASIC DATA PROGRAM 


3 REM 16K MEMORY TEST DATA 
10 FORX#546 TO 707 

1S READA:POKEX, As NEXT 

20 POKE11,34:POKE12,2 

2a PRINT" READY": NEW 


3O DATA162, 64,160, 0, 169,0,141,0,4,205, | |) 


0,4, 208 

32 DATA4S7, 238,41, 2, 238, 44, 2,204, 41,2 

35 DATAZ40, 3, 76,40, 2, 238, 42, 2, 238, 45, 2, 
QB, 42, 2y 240, 3, 75,40, 25 238, 39, 

40 DATA2Z04, 39, 2, 240, 26, 169, 4, 141,42, 2, 
141,45, 2,76, 38,2, 162,100,134, 11 

45 DATAIG, 162, 64, 160, 0,173, 39, 2, 76, 48,2, 
162,64,160,0, 169,0,141,0,4,23 

SO DATALI17,2, 204,117, 2, 208, 245, 238, 118, 
2,236,118, 2, 208, 237, 205,0,4, 20 

S55 DATA, 238, 136, 2, 204, 136, 2, 208, 243, 
238, 137, 2, 236, 137, 2, 208, 235, 238 

60 DATAL15, 2, 204, 115, 2, 240, 21,140,117,2, 
140,136, 2,169,4,141,118, 2,141 

635 DATAI37, 2, 76,114, 2, 162, 186,134, 11, 96 
70 DATA162, 64, 160,0, 173,115, 2,76, 140,2 


MAIN BASIC FROGRAM 


After LOADing and RUNning the data 
program, LOAD and RUN this BASIC 
programs 


1 REM 16K MEMORY TEST 

3 D256 

10 XmUSR(X) 

1S A=5542: B#S532CxSSi1 

20 IFPEEK (A) @64THENSO 

25 PRINT"ERROR AT "PEEK (A) XD+PEEK (B) s 
GOSUB4SS: GOTO10 

30 Am6491B26481 C627 

oo IFPEEK (A) =64THENPRINT" DONE": STOP 

40 PRINT"STATIC ERROR AT "PEEK (A) kD+ 
PEEK (EB) sGOSUB4S: GOTO10 

43 PRINT"POKED"PEEK(C)" GOT “PEEK (PEEK 
(A) *D+PEEK (B) ) s RETURN 


BASIC programs. 


DISASSEMBLY 
MEMORY 
0222 A2 40 * OfkF GC 27.02 0277 
0224 Ad 00 0252 FO 1A O27A 
0226 AJ 00 0254 A9 O04 027D 
0228 8D 00 04 0256 8D 2A 02 027 
OP2h CD 00 O4 #0259 SD 2D 0z 0282 
O22E DO 2F 025¢C 46 26 02 0285 
0230 EE 2902 O25F A2 64 0287 
0233 EE 2C 02 0261 86 OB 028A 
0236 CC 29 02 0263 60 028C 
0239 FO 03 0264 A2 40 * 028F 
023B 4C 28 02 0266 AO 00 0292 
023E EE 2A 02 0268 AD 27 02 0294 
0241 FE 2D 02 026B 4C 30 02 0297 
O244 EG 2A 02 O26EF A2 40 * 029A 
0247 FO 03 0270 AO 00 029C 
0249 4c 28 02 0272 AY 00 029F 
o24c EE 27 02 0274 8D 00 04 O2A2 } 


USING STRUCTURED PROGRAMMING TECHNIQUES 
by Larry Ellenbecker 


I have enjoyed your Journal very much 
aver the past 2 years. In that time I 
have. not geen any articles dealing with 
two very important areas of programmings 
1) program documentation, and 2) using 
gtructured programming in developing 
Since you mentioned 
re-establishing the Beginner Corner I 
felt this might be a good time to submit 
an article. 

A common excuse among programmers is 
that they never have time to write user 
documentation for their programs. 
Particularly ina business environment 
and even for the serious hobbiest 
documentation of pragrams is very 
important. A business its concerned with 
retaining control over the programe it 
has paid to develop and depends upon to 
conduct its normal activities. Alsa for 
businesses, there is always the 


potential for etaff turnever to 
consider. The personal computeri st 
should be concerned with program 


documentation for other reasons. Ags 
computeriast develops his or her 

programming skille, documentatio of 
techniques that have been mastered can 
be invaluable when it comes time to 
program more sophisticated applications. 
Through the uge of documentation, you 
cam build your own reference library of 
computer programming techniques. By now 
the reader ie saying "that sounds good, 
but documentation is a time consuming 

process”. My answer to this is "it 

deesn*t have to be that way if you use 
structured programming techniques". 


the 
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LISEING tor 

PES! 

BE 75°02 O2A4 8C 75 02 
GC 75 Ge O2A7' 6C GC 02 
DO F5 O2AA AQ O04 
EE 76 02 O2A0 8D 76 62 
EC 76 02 O2ZAF 8D 89 02 
DO ED C202 40°72 02 
CD 00 04 O2B5 A2 BA 
DO 29 02B7 86 OB 
EE 88 02 O2B9 60 
CG. 68 02 O2BA A2 40 * 
DO F3 O2BC AO OO 
EE 89 02 Gene AD 73 02 
ECG 89 02 0201 4c 6C 02 
DO EB 
BE 73 O2 OOOB 22 
CG 735.82 OO0C O02 
FO 15 *Change points Tor 


other than 16K. 


I recently had the opportunity to 
enroll in a COBOL programming course. 
During the entire course the instructor 
continually streseed the importance of 
structured programming in writing 
programs that could be easily 
maintained. Structured programming uses 
a top-down approach in programming. A 
modular structure chart is initially 
prepared which simply outlines the major 
processes that the program must take 
into account in order to accompligeh a 
epecific task. From the modular 
etructure chart, a flow chart is 
developed which details each process ae 
a geparate operational portion of the 
program. The flow charted modules can 
then be used to write the source code 
program and go through the debugging 
process. 

The inetructor of my COBOL course 
imposed two interesting restrictions on 
us ag students in his course. First, we 
were not allowed to use the COBOL 
command GO. TO to branch from one 
operational process to another. We could 
only use GO TO to exit out of a 
processing loop. Second, we were 
required to use the PERFORM command to 
execute the various modular processes in 
our program. In BASIC this would be like 
using a GOSUB command. Well, to make a 
long story short, my COBOL instructor 
convinced me that structured programming 
ig a valuable technique regardless of 
programming language. GOTO statements in 
BASIC programe are among the most 
overused and most sloppily used 
statements available to a programmer. 
Indiscriminate use of GOTQ makes 
documentation writing very difficult and 
debuqging next to impossible. I’m not 
gaying that programmers should quit 


using GOTO’s, but rather that GOSUB’s 
and GOTO’s can be used more effectively 
if you disipline yourself to think about 
your programs from a structured point of 
View. : 

To demonstrate what I mean, I will go 
through an application programming 


process using structured programming 
concepts. The application we will be 
programming will be to calculate the 


coefficient of linear correlation. 


Modular Structure Charts 

In this phase of developing a 
program, we are concerned with 
conceptualizing the programming task. In 
their simplest form all processes can be 
depicted by the Input-Output Model. 


i INPur bel FROCESSING | OUTFU? 


However, if we really begin to think 
about a programming application we can 
usually break it down into component 
parts or processes. Our thoughts can be 
achematically charted as shown in the 
modular e@tructure chart below: 


_CORRELATION PROGRAM 


Set Up File Parameters 


Printer Report Header 


Read Data Sets X&Y 


(1) 


(2) 


(3) 


Calculate Coefficient 
of Linear Correlation 


Print-Out Result 


(4) 


(5) 


Once we have drawn this chart you may 
ask; what does it tell us and how does 
it help to develop a flow chart and 
ultimtely a program. This will become 
obvious as we review each component of 
our sample structure chart. Item (1), 
Set Up File Parameters; is used for all 
initializing operations. For example, if 
we are dealing with arrays and matrixes, 
this is the part of the program where 
they are dimensioned. Counter Values are 
also set at this point in the program. 
Item (2), Print Report Header; here we 


might be concerned with printing a hard. 


our calculation and would like 

an appropriate title for the 
(3), Read Datay as in any 
data processing we must read or input 
the data from somewhere. Item (4), 
Calculating Correlation Coefficients) is 
a mathematical process and therefore 
relies on a standard formula. Item (5); 
Print-Out as in any process we will 
output some kind of results. 


copy of 
to provide 
output. Item 
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Flow Charting 
At this point, 
complexity of 


depending upon the 
the operations in each of 
these modular levels, we may flow chart 
some, all, or none of the defined 
modules. Because of space constraints in 
this article [I will not show a flow 
chart for this program example. 
However, the reader should be aware that 
Items 3 and 4 are complex enough to 
warrant flow charting depending upon the 
programming abilities of the individual 
programmer. 


Structured Programs 

I would now direct the readers 
attention to the program listing for the 
"CORREL" program. This is an example of 
& structured BASIC program. Lines 10-90 
provide the user with several items of 
useful informations such as, buffers 
required, system requirements and 
formula source. 

Lines 100-190 constitute the 
structure for the operation of the 
entire program, hence the title "CONTROL 
MODULE". The Control Module also 
provides a potential user with complete 
operational documentation for the. 
program logic because it specifically 
directs the user to the source code 


lines for each operation. Note the use 
of the GOSUB and GOTO statements. 
GOSUB’s are used to perform all main 


modular activities while GOTO statements 
are used within modules to alter 
operations upon meeting the conditional 
requirements af a control break 
statement (see example of conditional IF 
statement in line 1020). 


In addition to the documentation that 
igs provided in the Control module, it is 
easy to document specific operations by 
referring to a particular module. For 
example, in the "Read Data Module” 
statement lines 1200 through 1280, lines 
1230 and 1260 have a particular 
operation performed on the (X data. set) 
and (Y data set) that are input for 
processing. The data that I processed 
with this program had numberic values 
with two decimal places for the (X data 
get) and one decimal place for the (Y 
data set). To save disk storage space, 
the data was entered without the decimal 
points. If I came back to use this 
program geix manths from now, I know I 
wouldn’t remember that these lines were 
set up that way. However, if I document 
that fact as an element of the "Read 
Data Module", I have a reference to 
consult at some later date before 
program execution. A second example of 
where simple documentation can be 
helpful is in the "Print Report Header 
Module", lines 710 and 740, The REM 
statements are used to show where the 
printer could be turned on and off. I¢ 
you want a hard copy of your 
Calculation, simply insert 710 
POKE8994,3 and 740 POKE8994,2. As yau 
can see, useful documentation can be as 
simple as a single written statement 


directed to a specific program line 
number under a specific modular heading. 
The documentation page can be attached 
to the program source code and your 
structured program is complete. 

a conclusion, I think this 
° scussion about structured programming 
id documentation can serve personal and 
business computerists well if they 
remember same of the important steps in 
the process. 

Structured Programming Techniques 
i. Conceptualize your programming task 
and draw up a modular structure chart 


that includes all the important 
operational components. 
2. Use flow charts to aid in defining 


difficult operations withing each 
modular component. 

3S. Digcipline yourself in using GOSUB’ s 
and GOTO statements to maximize your 
cantrol over programming processes. 

4, Use the "Control Module" to document 
overall pregram logics and then document 


specific operations by referring to the 
19 REM BUFFER 4 & 7 ATTACHED 
20 REM 
30 REM FILE NAME ¢ CORREL 
40 REM WRITTEN BY ¢ LARRY L. ELLENBECKER 
HO REM PON DESC.  ¢ COEFFICIENT OF LINEAR CORRELATION PROGRAM 
at a ORALLA a BASIC) BY 
ube & 
QO REM SYSTEN : OSI C4PHF (NIN, SINGLE DISK DRIVE REQUIRED) 
7 REM SUPPORT PGMS “DATA E° DATA ENTRY PROGGAK 
§ > 42-82 
CONTROL 


MODULE 
SET UP PARAMETERS /BINENS IONS 
PRINT REPORT HEADER 

yen wee oie cee 


REH OPEN DISK FILE BUFFER 7 
GOSUB 1200;REH READ DATA. 
Pr 2000;REN. SUNMATION CALCULATED (X&Y BATA SETS) 


TO BB Ho 
VARIANCES CALCULATED 


1/0 GOSUB 2500;REM 
i ow SOQO;REH PRINT OUT COEFFICIENT OF LINEAR CORRELATION 


‘ , = UF PAR 4 +? 
310 PRINT TAR 13) COEFFICIENT 1 EAR CORRELATION PCH? 
52 


530 FOR Tal TO ann Taree NEXT 
re NTSPRINTS RETURN 
HEADER 


0 BOK 
7) PRINTIAR( 34)" THE COEFFICIENT OF LINEAR CORRELATION FOR DATA SETS x & Y" 
740 PRINT SPRINT 


F 


73) RETIR 
1000 REM OPEN DISK FILE BUFFER 4 
1010 READ Fis: ea: oe SET BEING READ® 
1020 IF Fis="END" THEN GOTO 1 
10.9 DISK OPEN GsF1$ 
104) RETURN 


1100 REM OPEN DISK FILE BUFFER 7 

1110 READ F2¢;PRINTSPRINT°( Y) DATA SET BEING READ’ 

1120 DISK OPENs7sF2¢ 

113) RETURN 

1140 REA 

ar DATA "COR Di’ s*COR Bo’ s"COR D2"s"COR D4" s°COR D3" s°COR D7" 
B4* COR BB" 


1259 F TUS="ENI-FILE" THEN COSUB L100:COTO 1240 
eh es 


1280 RETURN 
2000 REA SUNMATIONS CALCULATED FROM X ANB Y DATA SETS 
2010 oy SSL=SLAKSS2=S2+V 3 TL=TLAX G23 T2ET2AVG2 


VARTANCES. CALCUL ATED 
AL=51/N+A2=S2/8s BI=TL/N: B2=T2/NS VIEGOR B1-Al ¢2 SV 2=SOR( B2-A2t2 ) 
| RC NES~S19S2 )/CCHE2 EVIE? ) 

__o} PRINTSPRINT* VARIANCES CALCULATED” SPRINT 

2040) Ser PRE 


3000 REN PRINT COEFFICIENT OF LIMEAR CORRELATION 
3910 FOR ma TO_SosPRINT NEXT 

320 PORE BP94s3 

2030 PRINTTABL 40 )°CORRELATION COCFFICIENT = 
3040 POKE BY94s2 

3059 $=0;51=05 52-0; Ti=0; T2=0 

3069 RETURN 


ON 


 SRSPRINT 
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module name and appropriate BE Ege e line 
THUMES GI" o 
The benefit you will receive 


for 
efforts will bes | 


your 


is easy to alter 
expand its . 
gubroutines can be 


1. A program that 
Bhould you wnat to 
capabilities. Other 
kdded anywhere and their operation 
controlled by its sequence in the 
"Control Module" statements 

2, Access to a reference base of mini 
programs (modules) that are already 
debugged and which can easily be adopted 
for use in other structured programs. 


I have aleo included a copy of; a program 
called "DATA E" for data entry for 
running the "CORREL" program. It is 
another example of a structured program 
which I hope will be adaptable for use 
by other computerists. 


10 REX BUFFER & ATTACHED 


20 REH 

30 REM FILE WAHE 8} DATAE 

40 REH WRITTEN BY § LARRY L, 

SO REM PON DESC. ¢ BATA ENTRY CORREL ) PROGRAM 

31 REM COEFFICIENT OF LINEAR CORRELATION PGH 

6) REM SYSTEM + OSI C4PMF (HIN. SINGLE DISK DRIVE REQUIRED) 
Ae T PGAS: ne "CORREL® PGH 


REN DATA-ENTRY-HOD 
REVIEW & CORECT-NOD 
DATA-TO-2 


ISK-HOD 
CLOSE-F ILE-HOD 
HANUAL -CONT 


REA 

“00 REA SET DIMENSIONS 
J10 PORE 2873s 28:POKE 2894511 
- DIK pe erent aot 


540 Q=14 E: €siz 


OF thE DATA MATRIX 
1090 REN — FILE-OPEN-HOD 

1005 FOR X=1 TO 35:PRINTSNEXT 

1016 FLAG=0 

1020 PRINT:PRINT: INPUTPENTER FILE NAME’ SF$ 

103) IF FS="END® GOTO 140 

108) FOR Y=1TO35:PRINT NEXT SRETURN 

2009 RE DATA-ENTRY-HOD 

2010 PRINT’ BATA ENTRY MODULE" {PRIMT SPRINT 

2020 FOR I=1 10 9 

2030 FOR J=1 10 25 

2040 G=GtLSPRINTGss INPUT"ENTER BATAS" 
2059 IF TS="END-FILE” THEN GOTO 2070 


5 a 
oe NoTe: ENTER 


“END-Filé” To Exit 
Daten Entry Loop 


SDS SPRIWT SPRINT 


IPT OF ERRONEOUS ENTRY 


INPUT"ENTER NUMBER OF ERRORS (0-n)?oR 
THEN GOTG 7070 

PRINT"ENTER SUBSER 

INPUT CK) 


%) R HANUAL~CONTROL HOB 
int) FOR X=1 TO 0: PRINT REXT 
4)20 THPUT® ae ? ~ENTER (Y/N 578 > 


7040 K=Krl 


REM REVIEW & CORRECT-HOD 
a0 PRINTS PRIBTS PRIM SPRINT" REVIEW & a | 
3020 FOR I=1 TO Q:PRIRTTAR 18) DATA eer i 
3030 FOR J=1 TO i3 : 
O40 PRINTS" = "SX8( Tod sTARL32 425° = "9XSC Te dti2) 
O50 NEXT J 
3040 
a roRct TR Y= 2K PRINTS Is ¥ }s¢ THPUT” CORRECTIONS * sCB2X$( To Y HCSSNEXT 
5 - $¢ 37508! 9 
5090 A X=1 16 ae *REXT LiRETURR 


&900 DAT 
4910 FOR I=i 10 8 
6020 FOR J=1 10 25 
6030 PRINTS4X8 Tod) 
gue 


SO NEXT I 

5970 TES="END-FILE" {PRINTSSs TES 

6080 PRINTSPRINT'DATA PRINTED TO DISK FILE*SF$ 
REXT SRETURN 


4070 FOR X=1 TO 2000: 
7000 REM ERROR-LIST-HOD 


IF T=¥ THEN GOTO 7080 


SoSH SeSH 


7065 GOTO 7 
7070 FOR X 


705) T=Tth 


7080 PRINT R=O 


ry 
Mm 
of 


ad Nop 


+, 
eet 

yy 
4 nts 


oe 
Hind 18; | 
ry 


sect 
aa) 
eala 


me; 
*eeske® 


Sep med CTT AT Ste tnd fo 


ct i 


arene) 
evr: feceale fornete PRUE ETE 
jeroele f 


etter Rp very, ot Ph ce 
Peat CEpt Mid USE Mig tl esas 3,Eg,t 


“ad OME LT) Be had Pho 


egg, tty ee 
sat Wad ital Vil 


sade foveate forced foseebe foreabe fooeele 


om 
ey 0 


nee Miser tes eer a Oe 2a ee aS seed at beef 
estat eg t ist Et Nie S Nit Eat’ nd he atte 


oveds’ 


iN fe tal Pe oe 6 


met 


Pat Poa Ma Pat Pat fag Pat Po ee ee 


tt C0) fi ted fale eee Cee UE cit med ot 


“Pt, 


a, hie, ame 
«it ri 0 8S iat 


Nott 


ooo! 


a0 Marke aR 
fat Wa! ia 


Nad tel Qed led ted fad te 


ifs! 


Pale fade Pals 


Sto mite Th ce im se i fi 


a, 
eocke 


wots! 


oa ake 


ot 
sede 


SeTeg Tet fan Poe te Te Pa ta Pa 


H 


ta} f st fst ['3,! Hea [3.2 i "si 


ees 
t*. 'e. 
Son a a 


Ps AC 
f'11 fot t: i: 


ow 
swale 


aa ra tu) 


Th ofa Pale a 


me 


1 {1 fs 


mr ise meee ee 
wet. aden. oft. aft. tu] taj tJ ful ful fe! 


Pa Td Pa Pad fo Pas Te Fo 


rr O68 tal fe) OT, Co sc a 


Bed 


ROY KELLY, Ne HOLLYWOOD, CA 


I just bough an MX-70 printer for $300, 
after reading Dec. Aardvark Journal and 
deciding I could:run it with my CiF. Tf 
came up with the above modification of 
Jeff Rae’s circuit; after reversing all 
the data lines because Epson’s manual 
doesn’t say which is which, it now works 
fine as shown below. 


1@K 


To fill the buffer at 9600 buad 
equivalent with your Ci8 ROM I found I 
had to give all the commands in one line 
as follows: 

F251440 3: SAVE 
POKEF, 3:POKEF, 16:LIST 
If you type LIST separately the C18 ROM 


resets the 6850 back to its divide by 16 
mode. 


DATA 
DATA 
DATA 
DATA 


SV ONNI 09 


Epson 
MX-7@ 


4 Po Wo 


oLROBE 


BUSY 


GND 


CLP - MX-7@ PARALLEL PRINTER INTERFACE 
(see also Vol.2 #5 v.36) 


MLUTTER FOR OST 


ZPG 


LEM noi os? 


Sar iF “ 
LIME EG) $28 fan TF te-4 


ae EEL $4o 
ree EGll $4 ° 


SET STHRT» 


ELH Lit #€FF 


os 
poe Fs 
7 
“TT 
an a a a a 
pot 
feng 
prac BS 


Le TH! 
BOSSee LO TBLoY 


enesae (00 TRL» 
nara BHE Ce 


me, eee, awe, “eee 


DES BHE C8 


pr Ie 


#e40 IF Card 
POKE POINT 
#307 IF Cee4 


BRAHCH ALWAYS 


DOUBLE HULLS 


KERRY LOURASH, DECATUR, ILLINOIS 


The following listing is a correction to 
for OSI" which was 
published in the Aardvark Journal Vol. 
A friend printed 
discovered too late 


the article "CLUTTER 


NO. 2 pages 12 and 13. 
the listing and I 
that one line of the program had 
disappeared. In a ML program, this 
throws the whole program off; the 


cannot just be re-inserted - a whole new 


assembly must be done. 


IF HULL.» ERHSE LINE 
COMPARE CHAR. 
Ld LOOP IF A HATCH 


TO SCREEN 


BET REST TEL CHEE. 


we HO. HEST TBL ENTRY 


BL? PKLIN LOY #LEH 
145 LOA ¢ 

A | THY 

20 Loa 
i45 STA 


LIHE LEHISTH OF SCREEH 
GET CHOR TOBE HOUED 
SOUE CHOROCTER 

FROSE OLO CHORACTER 


THA 


tr, 
coal’ 


Fh a 


Die. 
a 


feos: 


re 
Pe I eee OI 
i ods 
~J 


‘ecole: 
fH 
ss, 
os 
pee eee 
oss 
peas Fs 
T ry 
i 
ta 


i441 ASS: 
Ree BESS Se UEGer so 


z 
5 


LOA FP 
mE BLIME 
STH PF 
BCS DECST 
He 


oe. 


Has SoA 


Bee 
mt 
ook 


Ti nh iT 


my PTE ous 
Cs 0 is TTT LS tal 
ek 


ny cre Fn 
fe. et sa Paci fs. 
om a 


ea 


sg 

fs. 
“af Tf 

Sonal 

eos 

r 3 


AIM 
seebe 

rs 
a) 
<a 
owebe 


TY of. ad Pa ee Oe cate me LE Pe ag [ie eee a yt or 
Saad 
eoeds 


DECST 


Pt Pad Pals Pay Pa 


Pet Pat Pale Pa Pa Pas Pt Pa i 


er i 


SET 

LOA ST 
cy ell 
’ Brees CONE 
NEC sT+i 


mi re 
r 
oT Th oa ah ah 
Te om fs. fe fa! 
Ned 
re 


i 
omy 

prs 
mi 


i eh ae nar he 
Ud Lat tye tad 
wt 


DOHE LOA 
Pe 
BCS 
LOA 
HEF 


ST+i 
#01 
PELTM 
#252 
FASS 


my: eels 
tad b+ “Ti TT I 

ae 

my 

fee 

i 


fone 
oot 


RACAL LA Tn an tt 


Cy ge ee 
le — gtQP, 
domed me) aT ch 


ti 


— 
ao-te 


Lory 
LOA 
STH 
CES 
BFL 
Et] 


#LEH 
x 


bot ie 
ci 
i | 


em wz 
al 
“weobe' 


ara aoe ‘ca, 
a od 
ST Dene 
i = 
T 
toe’ ‘cooks’ 
jeonete 
“J 


ot. 
tpi 


wefowad mL TU nT ha oh ct th 


MT fe ey Pal ee yt ot pT 
mt yd 


Faas 
"waste 


t 
‘at Pa Pt Pat Pal Py 


ve, 
Tae 30 


leoske 


MECST 


mya Et Ep t 


16 Be 
“eect 


cat Ut? 


He Oe 


ee ee ee 
? ahem o™, °, 


ore, 
i 


DATA #3F 
ATH 


Lee 
EE 


me 
SET I Lb Lp eg ee 
hee 
t, 
Pane 
ooh ee’ * cocke' ee en' 
P's. 
a 
tr". 
ae 
epee’ 
Snel 
ste 
7 
coke’ 
| 
Ti 
a 


0 Eh 


DATA 


co CTA Bf 
END 


Po ft Tra Te ft Paya fea 7 


al a Es En Ea aE aR ge 
hl io oe ge 


mf ma med md 


re ee 
OA ad TV TE OG 


ERELEEE SELLE SSE SSE SESE SESE ES 
HBOL TABLE # 


“0 § 
* m= 1 


Ca 


=H 
DOWE =e 
7 od fi 


32 =H234 C2 SBE: 
BF ERASE =8270 LEN =801 
45 


8285 


JIM WEIMER, FT. MORGAN, COLORADO 

Have you ever wanted a flag in program 
that you could easily toggle (like a 
toggle switch)? Here is a BASIC line 
which will set the flag ON the first 
time it is executed, OFF the second 


(set flag OFF) 


LET A = ~] 
X (toqgles flaq) 


m= X ~ BKSGN CX) 


X alternates between —-1 and 1 by merely 
executing line Soo, 


KERRY LOURASH, DECATUR, ILLINOIS 
CORRECTION TO BASIC BLOCK DELETE 
IN AUGUST VOL. 2 #3 JOURNAL FG. 14 
I have now created a much faster 
version 

with error checking. 
same user format. The only difference 
igs that the "“DELETE® flag is now #64. 
The anly way you might get into trouble 
with the routine (that I can see) is 

to dao an INPUT statement with the 
Output 


to screen suppressed 


Tt ifs @xactly the 


($64 set). 


STA <PPosY . 


RESTORE CHARACTER 


CST 34 


ERASE+4 


i 
OATH $47,446 


CELI =a 


L.IHE 


PUIN!) NESS. 
TO HARM START 


(RINT AT HEH LOCAT LOH 


PORE POINT UP 1 LIHE 


START UF 1 LIHE 


nfo 2 $D8e8@ IF DONE 


HT $H1ibe 


ERASE H LIWE 


LOOP IF HOT COKE 
6O TO DECST 


Tr DOHE 


DATH $28, F20,$20 $20.8 


tf 4 ti 


i 
DATA $4C,.¢45,¢53,¢54 "LIST" 


DECPP =8259 DECST 
PELIN =8240 PP 


ON I A 


er ft 
J fs 


FT 


=HESH 


VINCE BARBOUR, CINCINATTI, OHIO 
Here is a cleaner and perhaps 

way to determine if a number is 

even than using the INT function. 


better 
odd or 


ON <TSTNUM and 1)+1 GO TO GOSUE 
EVEN ROUTINE 22222, ODD ROUTINE iliil 


he he he hk 


All odd numbers have the low bit=1, all 
even the the low bit=o. The above 
expression returns a O+f1=1 for even 
numbers, a itl=2 for odd numbers. 

This function can be used to test any 
bit and can be used handling with the 
"Secret Basic Functions" in the May 1981 
catalog. Tt is done like thiss IF AF 
AND B1i/BS THEN where Bl though BS are 
equal to 2 raised to the first through. 
eighth power. 

The THEN branch will be taken if the 
bit ie on. The bit can‘be set on by 
using the OR function and Hi threugh 
BS, 

Each switch takes one bit rather than 
one byte or more. More space can be 
saved by using strings and string 
functions or by using PEEK’s, POKE’s and 
free memory. é 
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GLEN FLETSHMAN, EUGENE, OREGON : 


BRelow i6 a sample of an updated 
version of the routine that will output 
tao a quickprinter without getting 
gtirrange characters at the beginning of a 
ling because of mulis. The routine that 
was ain Journal #4 (Vol. 1) worked anly 
slightly, soa I added ai routine that 
would pause far the length of a null, 


but nat print it, as the other routine 
did. You still have to poke a value 
inte address 13, but mow it has to be 


abouk L2O ar higher, but it takes less 
time to execute a mull than before. i 
you change the value that is being 
loaded into Index register Y Cat address 
oom), Ge the amount you FORE into 13, 
you shaulcd be able to get a good speed 
gaing with no null problems. 

Angather thing you need to do with a 
quickorinter if to install a 600 baud 
transmit switch. I faund an @asy way toa 
i. it. Take a jumper and wire ti from 
pim dd, on USO, tao ane poke of a signal 
poke, double throw gwitech (SPDT). Take 
another jumper and wire it from pin 14 
aon US9 to the other side of the SFDT. 
Then, cut the trace leading from pin 2, 
US7 and solder a wire fram the pin ta 
the pole oan the switch. The jumpers 
should be about & or more inches long $0 
that you can mount the switch on the 
back panel, ar atleast be able to 
Switch it without reaching into the 
COMPUTLEer . To qget 300 baud, put the 
switch in the position towards the side 
that has the wire leading from USS. For 
400 bane (trangamit only), use the other 
pogsitian. 


ADDR HEX CODE MNEMONIC 


OOOO 4C D800 JMF SO0D8 


QOD APAZ LDA Heat 
— OODA BDIADZ STA BO2Z1A 
QOODD AVOS LDA #2 


QODF BDIBOR STA $O215 
QOR Md 407482 JMF HAL 7 4 


PVOOD DOESE POPES HEREE COUR OLE COED DEE BENET OLOER OREEE DEETE DELEL DEES FORE PEOEE FEOEE COREE COEDS EEREE OENED NEOE 


OOO POSDRF JSR #RF2D 


225 49 p46 
O226 ADOSO2 LDA #O20% 
OB29 YNOO2 BNE #022 
OPE 68 PLA 

OE2EC0 60 RTS 

O22D 68 PLA 

OBEE CHOY CME #O 
Ooo FOO BEQ O28 
ORS 4ACBRLFC UMP $F CR 4 
OWS 49 EA 

ORS BA Txe 

O27 48 ra 

O23B 98 TYA 

OLED 48 Fb A 

O2RA AOOS LDY #5 
O2@3C ASFF LDX #4FF 
ORE CA DEX 

O2SF DOFD BNE #0238 
0241 88 DEY 

O24 DOrg BNE #0250 
O244 48 PL ey 

O24 AS TAY 

N246 68 PLA 

O247 AA TAX 

O248 68 PLA 


O24? OO | RTS 
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FOR SALE: C2-4P MOD 3 (C4P WITH COLOR 


UNPOPULATED). 16K (SOCKETED FOR 32k), 
PRINTER PORT, XTRA 


BEST OFFER. STEVEN GALE (216) 752-4845 
FOR SALE: 


C2/4F 32k IN EXCEL. SHAPE, 


PLENTY DOCUM., SOFTWARES & EXTRAS. #47 


OR OFFER, (AL) 414-278-0428, 710 E. 
MASON #75, MILWAUKEE, WI 53202 


JOHN C. SCHERR, PETERSBURG, VIRGINIA 


After gweeing the Animal 
for disk in your April 82 issue I 
thought the CiP users might feel left 
out. This should work on other 


command. 


ANIMAL GUESS 


10 REM ANIMAL GUESS 

20 REM AUTHOR UNENOWN —- MODIFIED BY JO 
HN SCHERR FOR 

30 REM INFUT & OUTFUT TO CASSETTE RASE 
D FILE | 

40 FORCS=1TOS2:PRINT: NEXT 

WO DEFFNACT)=I-N: CLEAR: DIMQ$ (50), A1$ (50 
Patt 450? «2 150) 

60 INFUT"Does the data file exist" sAG 
79 ITFAS< >"Y" THENO$S(1)="DOES IT HAVE 4 F 
FET"sLitil)=1sl2(1)=999sN=i 

B80 [FAS =" Y" THENALI$(1)="HORSE"sGOTOL7ZO 
90 PRINT:FRINT"Flay data tape. 
HIFT when tone starts. 

190 WAITS7088, 254,254:LOAD 
£10 fei+is INPUTS CI) ,L1(1), ALS (1) L2tT) 
120 IFO#(1I)<2>"END"THENI10 

130 POKES1IS,O: FORCS=1TOR2:PRINT:NEXT 
140 PRINT: PRINT"DATA ENTERED. ":FRINT 
150 N=I-iL:INPuT"Continue "sAG:PRINTSPRI 
NT: PRINT 

160 IFN?>SOTHENFPRINT'"C AREF UL ¢ MOR 
EF THAN Sai" 

170 FRINTs:PRINT: PRINT: INFUT"GQRE YOU THI 
NEING OF AN ANIMAL": Ag 

180 ITFA$="L"THENK=1 

190 IFAS="Y"THENK=2 

200 ITFAS="D" THENK=3 

2lO I[FA$="S"THENK=4 

220 ONKGOSUB250, 280, 480, 510 

250 PRINT:sPRINT | 

may) SNPUTYY CES). Lalor) S(AVE) , 
ERUG) "SAt:sFPRINTIFRINTs GOTOI8O 
290 PRINTsPRINT"THE ANIMALS I KNOW GRE 
260 FORT=1 TON: PRINTAL#(1I),sNEXTI 

279 INFUT"Continue "sASSPRINTSPRINTS PRI 
NT: RETURN 

280 T=1:REM "y" 

290 FRINT:PRINTQ$ (1) ss INFUTAS!SF RINT 

200 IFAG="Y"THENSSO 

S1Q0 IFAS >"N"THENZ90Q 

S20 IFL2(1)<°999THENI=L2 (1): GOTO290 

330 GOSUR440 

S40 L2¢1)=N+i:GOSUB470: RETURN 

S90 FRINT'IS IT "sA1SCT) ss INPUTAS 

260 FRINT 

S70 [FASS >" Y"THEN4OO 


OR D¢ 


oY 6A POWER SUPFLY, 
STRING BUG FIX #3 ROM, #350 IN SOFTWARE! 


Guess game 


systems 
as well, with maybe a change in the WAIT 


Cones ay 


~ 


e 


aa 


S80 PRINT:sFPRINT'...2 THOUGHT SO." 

390 FORT=1TO04000: NEXT: RETURN 

400 IFAS F"N" THENSSO 

410 IFI*sLic¢l) THENI=L1¢1) sGOTO290 

429 GOSUB4S40 

430 Littl) =N+1:GOSUB470: RETURN 

440 INFUT"WHAT WAS THE ANIMAL YOU WERE 


THINKING OF "SAS 


450 FPRINT:PRINT" TYPE A QUESTION THAT WO 


ULD DISTINGUISH 


440 FRINTAS:" FROM “Oi C1) s INFUTOL$: RET 


URN 


470 N=N+1:Q% (N)=Q1%:A1$ (N) =ASeL 1 CM) =Neb 


2 (NM) =9993 RETURN 


) 


w Ol ‘elt ties" 


480 FRINT:FRINT "TI Q$ (1) ALS CT 
bok Ler) 
490 FORI=1TONsSPRINTIsQ¢8¢1) 5" "eA1lSCI) 


Met SclisNExTi 

SOO FRINT: INPUT"Continue "sASs RETURN 
210 REM SAVE ROUTINE 

S20 PRINTsPRINT"Set up to record data t 


ape. Press SHIFT when ready. 


S20 WAITS70@G, 254, 254:FOKES17, 1 
540 FORI=1TON 
SSO PRINTOS (1) s "4 "slacl) 3%, "sAIB(T) g"y" 


sL2(T) 


2OO NEXTI 

370 PRINT"END, "O", END, "39 

S580 FORT=1TOS00O: NEXT: PORES17,0 

S90 FRINTsFRINT"DATA STORED" sPRINT 
600 INFUT"Continue";ASs RETURN 


GALAXTA ADDITION 
ROBERT CORWIN, PORTVILLE, NEW YORK 


Recently I was working on one of 
Aardvark’s check sum programs namely 
"Galaxia" trying to find a way to get 
the score and other information that on 
the Superboard is printed off screen to 
print where I would be able to see it. 

I not only found how but I found a 
way to make a hard copy at the 

Firet get up the program per 
instructions and hit the BREAK key- Hit 
M~ and Enter 08A3/64 * OBA4/DO * 0886/70 
* O0887/D0 k O8CO/71 * O8C1/DO k O8CC/72 
x O8CD/DO * O86D/73 k O8D7/DO * O8BDE/74 
* O8DC/DO k OB8ED/78 kK OBEE/DO * OBFD/69 
* OBFE/DO k OBES/69 kK OBE4/DO 

This will put the information at the 
top of the screen above the game and 
will not interfere with the game. 

To change the tanks to something 
different GOTO O2AD and ingert A-O4 and 
at 0281 insert A-O4 this will put gmall 
flying saucers in place of the tanks. 

"! TO RESTART THE GAME ENTER .O250G AND 
THE GAME WILL RESTART. 

To make ai hard copy of this or any 
check sum program do the followings 
First Cold start the computer and then 
enter the following two lines in BASIC: 
1 POKESIS, 2552 DIMAS (150) ,BS¢(150) : 
FORX#1TO150s INPUTAS (X) sNEXT 
2 FORX#1 7013508 INPUTBS (XxX) sNEXT 

When the above is entered set up your 
Galaxia tape and start the recorder and 
type RUN, when the program ig in hit the 
space bar and the Return key to return 
to keyboard opp. 


At this time "ALL" entries must be 
made direct with "NO" line numbers or 
you will wipe out all of your strings 
and have to start over again. 

Remember that the first 225 bits are 
the check sum operator, 80 unless you 
want a copy of this as well as the 
program advance your tape to where the 
leng lines of code list to the screen 
and then RUN. 

Now start your printer or 
the case may be and enters 
FORX=1T01505 7AB (CX) sNEXTs FORX=17T01508 PBS (CX) & 


NEXT--AND HIT RETURN. 


teletype as 


If you want the check sum operator 
also, then install Ay after the Print 
loop 80 as not to have long line of 
single entries as the first 225 bits are 
in single entry format. 


ALIEN II FOR THE CiE CHIP 
by NELSON REYNOLDS, MICHIGAN 


29 FORSH=590T06731 READY 1s POKESH, Yis NEXT 
SO POKE11, 78: POKE12,2 | 
250 i2=eLik21POKE657,12 

910 IFPEEK (252) =OTHENGOSUB1 130 

1130 IP@IP+LisTV#IPsAF=O0:DI=1s 

POKEAP, 323 SM=SM—-12 IFTU< #3THEN420 


Lines 20,30 and 250 reset the USR 
routine to unused space. Line 910 is the 
line that was hitting the return error 
in line 1260. Line 1130 keeps the 
computer from getting confused when 
TU=3S. By the way, the corrected portions 
are underlined in the above program 
lines. Also, so far I have not been able 
to find any cross between TV and TU. 


PING PONG GAME, by John Seybold 


Here is a good (2) man Ping Pong game. 
It was written on my Superboard (series 
T) and will run in 4k. I did not know 
how to make it work on any of the bigger 
machines so I will leave it up to you. 
I tried in most cases to use variable 
names that make sense such as BL for 
bottom left of the screen, LP for the 
left paddle character etc... Same 
acceptions ares L for difficulty level, 
LS was the starting address of the left 
paddle, but is aleo the address of the 
paddle after it has been moved around, I 
algo reused SL#® for the play again? 


109 REM-PING PONG BY JOHN S. SEYBROLD 

11 REM-i322 BROAD ST. 

12 REM-OSHEOSH, WI 54901 

20 GOSUBR1O00: GOTOS00:ADD SOUND TO LINE 


wOO 


29 REM-Z IS THE DIRECTION OF THE SERVE; 
3-LEFT, O-RIGHT 
30 D=DI CINT (3XRND (2) +14+Z)) 2 AD=CE-3: IFZT 


HENAD=CE+3 


99 REM-FROGRAM LOOP 
100 POKEAD, BA: Y=PEEK (AD+D) : IFY< >TWTHENI 


20) 


105 IFD=—-S3THEND=31:GOTO200 
110 IFD=—31THEND=33: GOTO200 


120 IFY< >BWTHENI40 

125 IF D=33THEND=—31:GOTO200 

130 Re ee alec 

140 IFY=RWTHENS1=S1i+1:Z=0:POKEAD, V:GOTO 
BOC) 

150 IFY=LWTHENS2= 
SOC) 
160 IF (Y<>LP) AND (Y< =>RFE) THENI80 

165 IFD=31THEND=33:G0TO200 

170 I[FD=33THEND=31:GOTO200 

175 IFD=-31iTHEND=—33: GOTO2Z00 

177 IFD=—ZS23THEND=—31:GOTO200 

190 IFPPEEK (QD+1)=RPTHEND=DICINT (RND(S) k 
S+4))sGOTOZO0 | 

190 IFFEEK (AD-—1)=LPTHEND=DI (INT (RND (6) ¥ 
S+1)) 

200 POKEAD, V:AD=AD+D: POKEAD, BA 

299 REM-READ KEYBOARD 

BOO ea ree PEEK (KE) s IF (YORI27)< >4 
27THENS 

B10 Pate LS=LS~Vs IFPEEK (LS) < >VTHENL 
Sm Lo+¥ 

S20 IF (YORI91)< 2191 THENS30 

325 POKELS, Vil S=LS+V: IFFPEEK (LS) <>VTHENL 
S=| S~—Y 

B30 IF (YOR@S3) < > 253 THENS40 

S35 FPOKERS, VikS=RS-Vs IFPEEK (RS) < >VTHENR 
S=RS+V 

B4O IF (YOR@51)< 3251 THENSSO 

345 POKERS, ViRS=RS+V: IFPEEK (RS) <> VTHENR 
S=RS-Y 

250 POKELS, LF: POKERS, RPsFORX=1TO100-—10% 
L:NEXT:GOTO100: PROGRAM LOOF 

BOO FORX=26T043:FPOKEAD, XtNEXT:Si#=STRS ( 
Si)+" "sGPg=STR#(S2)+" " 

S10 POKEPi+1,ASC (RIGHTS (S14, 
ASC (RIGHT#(S1%,3)) 

520 POKEF2+1, ASC (RIGHT#(S2%, 2) ) sPOKEP2, 
ASC (RIGHT#(S2%, 3)) 

S30 POKEAD, Vi IFSi<21ANDS2< 21 THENSO 

S40 PRINT: INPFUT"PLAY AGAIN';S1i¢: IFASC(S 
1$) =S9THEN20O 

S50 POKEF 1, VsPOKEFI+1,VsPOKEP2, V:POKEP2 
+#1,V 

BOO) FORX=1T030: PRINT: NEXTX:POKES30, O: EN 
D 

999 REM-INTRODUCTION 

1000 FORX=1TOLO:FRINT:NEXTX:PRINT" 

FING FONG" | 

1010 FORX=1TO6:FRINT:NEXTX:PRINT"LEFT M 
AN USES "Q@7 & "Art" 

1020 PRINT:FRINT"RIGHT MAN USES °P? & ? 
7° "SPRINT 

1050 PRINT"TO CONTROL FADDLES":PRINT:FR 
INT: PRINT 

1040 INFUT"DIFFICULTY (1-10) "sliIF (Lea) 
OR (L210) THENLO40 

1050 FORX=1TOSO:FP RINT: NEXTX 

1099 REM-INITIALIZATION 

1190 FORX=1TO6:READDI (X) :NEXTX:RESTORE: 
PORES3O, 1 

1200 BL=54118:WIDTH=22: HEIGHT=198: V=32:T 
W=154:BW=155:LW=157:RW=156 

1210 LP=153:RP=152:L9=53851:RS=LS+wl-2: 
CE=(LS+RS) /2: BALL=226 : 

1220 KR=57088:FORX=BLTOBL+WIsPOKEX, BWiN 
EXTX 

1240 FORX=BLTOBL+WI:POKEX, BW: NEXTX 

i250 FORX=BL+WI-VKHETOBL—V*HESTEP—1:POK 
EX, TWsNEXTX 

1260 FORX=BL+WITOBL+WI-VKHESTEP—V: POKEX 
RW: NEXTX 

1270 FORX=BL—-VkHETOBLSTEFV: POKEX, LW: NEX 
TX 

1280 POKELS,LP:POKERS, RF: Z=O: IF RND(&) >. 
STHENZ=3 

1290 Pi=LS+Vk11i:P2=F1+18:AD=CE:Si=0:S2= 
O: RETURN : 

1300 DATASS,1,-31, 


$241: Z=3:FOKEAD, V:GOTO 


2))sPOKEPI, 


~35,-1, 31 
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ABOUT POOL (2 PLAYERS) by D.L. Davis 


NOTE FROM EDITOR: This 
sone adjustments 


game 


which are up to 


may help you. 


It was structured sometime ago and Gf 2 | 


was to start over I’d probably use a 
PRINT AT statement for scoring and 
prompts etc., but as the string bug 


subtracts 16 from the PRINT AT 
mem is moved) I'll leave it as is. 


This one has a break that works pretty 
farther 
but too many may end up 


well. The balle could be moved 
on the break, 
against the 
routine. 
Having the arrows . 
keys ig a distraction, at 
While playing the game I just draw 
emall direction chart to use. The 


rail unless I adda 


counter works with the internal times to 


slow the ball down so the shot 


diminishes, and it also limits the count 


to SO when a rolling ball hits a 
cueball. This ig the only bug 
happens rarely when the rolling ball 
puBhes the cueball against the rail. 
After the 
and 1S 
making the score total =120 and 
permitting a tie game. The ball made 
indicator is in the lower right of CRT. 
IT use U and V 


which player, and there may still be 
some wasteful lines in there though I 
took some out. 

POOL VARIABLE LIST 

RD Ri R2 RB R RANDOM #'°S 

Gi G2 GS LEFT PLAYER apa oti sip 

Jil J2 J3 RIGHT “ '. "UM qi 

uv PLAYERS TURN INDICATOR LOC. 

D DIRECTION OF BALL TRAVEL 

Li L2 LOC. OF BALL MADE INDICATOR 

Pi TO P& POCKETS 

x LOC OF ROLLING BALL 

HX HOL:D LOC.OF BALL THE HITS BALL 
LO Wt) Vt) DOC LOC. THE BREAK 

C COUNTER FOR DURATION OF ROLL 

FP LOC. AHEAD OF ROLLING BALL 

E EDGES OF TABLE 

EE LAST DIRECTION 

N,S,NE,W,ETC. 


ACi) TO A(B) DIRECTIONS 

Z4) LIST OF BALLS MADE 
SUBROUTINES 

4 SCREEN CLEAR 

300 CHANGE PLAYERS 

400 SCRATCH 

sOO DIR OF SHOT CHOSEN 

600 POKE TABLE AND POCKETS 
790 FPOKE PLAYER + 000 

800 SCORING 

1000 DIR. ARROWS PER KEYS 1-7 
2000 INSTRUCTIONS 

Paes REV 3.5 FOOL COFYRIGHT RY D.L. DA 


ae | 


= REM FT. WAYNE INDIANA 


3 GOTO11 
4 fg =PEERK (129): R= =PEER (130) sPOKE129, O: POR 
ElS0,212:S¢=" "sFrorss= 1TQ7 


 S$=S$+S$4" Usneyys PORE ILS 
eevee 7,A:POREL30, 8 
il LO=53452: DIMWCIS) sDIMY ¢ 
= , : 13) :DIMDD(1i5) 
12 PRINT" INSTRUCTIONS NEEDED?": INFUTI4: 
LFLEPT@(TS. 1d="Y¥"THEN2Z0O00 
13 GOSUB4:RD= INT CRND (1) 49941) 
44 F1l=53896: G2=53894: 6% HSIS8932:T1=55916: 
J2=53915: Js= =3S914; G1=S2995 


may need 
YOU. 
Here is the letter from the author which 


(unless 


and the numbers of 
least to me. 
& 


and it 


ball is made, a # between i 
ig assigned to it and not reused 


a lot for determining 


et , 
i 
15 IFI$="Y"THENGOL . 1000 
16 U=53830!:V=53851:F=S34221: B=2263 C=03 D= 
Ns BA=111 ; 
198 POKES3617,B:FPOKES3584, RB: POKES3586, Bs 
PORESS3551,B:FPOKESI&S53, 8 
19 PORESSS55, 8:FPOKES3518, B: POKES3S20, Bs 
POKESSS22, B:FORESA524,8 
20) PORES 3485, Bi POKES 3487, Br PORES3S489, Er 
PORES2491,8: POKESS492,& 
25 Ne-S2sS$=+32:sEE=+1:sW=—-1:sNE=-313NW=—-S33 
:SW=+31:sSE=+33 
24 ACL) =4+1:5:A02)=-3128(03) =-3S2:A(4)=-332A 
(S)=—-1:A(6) =+31 
2a AC7) =4+323A(8) =+33 
26 Pil=53353:P2=53769:P3=S41852 P4eS535693 
PS=SS785:F6=54201 
298 Li=S4202:L2=54203:DIMZ(15) 
34 GOSUB60O0!: GOSUB7O0O: X=54033 
38 FORLO=LOTOS3679: IFPEEK (LO) =226THEN4SO 
S39 IFPEEK (LO) «< >226THEN4SS 
40 REB=INT CRND (7) k8+1) 
41 CUHCU+1SW(CU)=LO:V (CU) =R8 
45 NEXT 
4&4 FORXX=XTOX—-S80STEF-S2:POKEXX,111:FOR 
=OTOSO: NEXTsPOKEXX, 32 
47 NEXT 
48 X=XX:POKEX, 111 
49 GOSUB7S0O 
30 D=AC(RS) 
S2 R=INTCRND (RD) 1041) +sGOTO62 
6&1 X=HX 
62 BA=111 
63 R2=INTCRND (RD) k8+1) 
63 FORY=S42217TO0S4229: POKEY, 323 NEXT 
7O R=INT CRND (C) *8+1) 
71 C=C+1 
3 P=PEEK (X+D) s IFFP«< >S2THEN8BO 
76 FORT=OTOC: NEXT: POKEX, 32 
77 X=X+D:FOKEX, BA 
78 IFC? 1O0THENGOSUB300: GOTOS00 
79 DT=DT+1:G60TO70 | 
80 IFP=157ANDD=NWTHEND=EE: GOTO7O 
81 IFF=156ANDD=EETHEND=NW: GOTO7O 
82 IFP=154THEND=SW: GOTO70O 
3S IFF=15S5STHEND=NE: GOTO7O . 
84 IFP=156ANDD=SETHEND=W: GOTO7O 
85 IFF=156ANDD=NETHEND=NW: GOTO7O 
86 IFP=157ANDD=SWTHEND=SE: GOTO70 
87 IFF=1S57THEND=SE:;GOTO7O 
3 IFP=226THEN2ZO0O 
94 IFF=9464THENFPOKEX, 32: GOTO0400 
98 IFP=111THENGOSUB1OO 
99 GOTO7O . 
1600 REM 
110 IFFEEK CHX)=1L1I1ITHENI 20 
115 RETURN 
120 IFPEEK (HX+A(R2) ) =S2THENISO 
121 IFR2<8STHENR2=8: GOTO120 
122 IFR2>1THENR2=1 
22 C=C+l1 
127 IFC+OS0THENGOSUBSOO: GOTOSOO 
128 GOTOL20 
130 POKEHX, 32:HX=HX+A(R2) ss POKEHX, 111 
140 RETURN 
200 REM - 
201 IFPEER (CX) =111THENHX= 
202 BA=22 
205 X=X+D 
206 R=INTCRNDC(RD) *84+1)sD=AC(R) | 
210 IFPEEK (X+D) <>32THEN206 
215 POKEX, 32:GOTO70 
200 REM 


S10 TFPEEK (U) =49THENFOKEU, 32:3 POKEV, 5036 


OTOSSO 
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340 POKEV, 32: POKEU, 49 

350 RETURN 

400 X=X+D:POKEX, BA: :FPEEK (X) =226THENGOS 
UBS00: GOTO490 

401 POKEX, 96:HX=08 X=54097 

402 IFPEEK(X) =226THENX=X+1:GOTO402 

405 FOKEX,111 

406 POKEF, 83: POKEF+1,67:POKEF+2, 82: FOKE 
F+3, 65: POKEF+4, 84 

407 POKEF+S, 67:POKEF+6, 72 

411 IFPEEK (U) =49THEN413 

412 IFPEEK (V) =SOTHEN414 

413 POKEU, 32:POKEV, 50:POKEV+32, 145: GOTO 
415 

414 POKEV, 32: POKEU, 49: POKEU+32, 145 

415 POKESZO, 1:K=57088:FPOKEK, 191 

420 FP=PEEK (K) 

422 IFP=127THEN4S40 

4235 IFP=223THEN4SSO 

424 IFF=191THENSOO 

435 POKESS0,0:G0T0415 

440 IFX<S4092THENX=54091 :GOTO415 

443 IFPEEK (X—-1)=22STHEN4SIS 

444 POKEX, 32:FORT=0TO20: NEXT: X=X-1:POKE 
¥, i141 

445 GOTO415 

450 IFX:54102THENX=54103!:GOTO415 

454 IFPEEK (X+1)=226THEN415 | 
459 POKEX, 32:FORT=0TO20: NEXT: X=X+i:POKE 
soe ia . 
460 GOTO4i5 

490 REM 

498 POKEX, 96 

SOO IFPEEK (X)=111THENHX=X 

SO’ IFPEEK (U) =49THENPOKEU+32, 155 

S02 IFPEEK (V) =SOTHENPOKEV+32, 155 

SOS R=INT CRND (RD) k8+1)sC=o 

SOS POKESSO, 1:K=57088: POKEK, 127: P=PEEK ( 
K) eD=oO 

S08 POKEF, 68: POKEF+1, 73: FOKEF+2, 82: POKE 
F+3,69:POKEF+4, 67 

S09 POKEF+S, 84: FOKEF+6, 73: POKEF+7, 793P0 
KEF+8, 78 

Si6 IFP=(127AND191) THEND=S 

SiS I[FP=127THEND=N 

S20 IFF=191THEND=NW. 

S30 [FP=223THEND=W 
O IFFP=239THEND=SW 
O IFP=247THEND=SE 
O [FP=251THEND=EE 
O IFF=253THEND=NE 
1 FOKEU+32, 32:POKEV+32, 32 
7 IFD< >OANDHX=OTHENG2 

S79 IFD<¢ sOTHENFOKEL1, 32:FPOKEL2, 32 

S80 IFDTHENS1 

S90 POKESSO, 0: GOTOSOS 

600 REM 

629 FORE=F1i1TOPSSTEPS2: POKEE, 157: NEXT 
630 FORE=P4TOP6STEPS2: POKEE, 156:NEXT 

Bi FORE=F1TOP4:POKEE, 154: NEXT 

632 FORE=PS3TOP6: POKEE, 155:NEXT 

633 POKEP1,96:POKEP2, 96: POKEPS, 96:FPOKEP 
4,96: POKEPS, 96: POKEPS, 96 

6234 FOKEF1+32, 96: POKEP3—32, 96: POKEP4+32 
9S: FOKEP 6-32, 96 

635 POKEPI+1, 96:POKEF4—-i1, 96: POKEFS+1,96 
:POKEP6-1,96 

636 POKEP2+1,96:FOKEPS-1,96 

640 RETURN 

7OoO REM 

7O1l POKEU,49 

7O2 POKEG1, 48:POKEJ1,48: POKEG2, 48: POKEG 
3,48: POKEJ2, 48: POKEJS, 48 


7OS POKESSO.. 7, 80: POKES 3659, 76: POKES 3491 
W653: POKES3723,89:POKES3755, 69 

704 POKES3787, 82 - 7 

740 POKES 34606, 80: POKES 3638, 76: POKES3670 
,65!:PORES3702, 89 

7ii POKES3734,69: POKESS766, 82 

720 RETURN 

730 YHis 

JES YsY¥-1sDD¢Y) =ACV CY) ) sPRP=WCY) +DD CY) 
724 IFPEEK (PP) <>32THEN741 

735 IFPEER CWCY) )=226THENFPOREW CY), 32 

726 IFPEEK (PF) =S23THENPOKEPF, 226 

741 IFY=1 THENRETURN ; 

742 GOTO7S3 

BOO REM 

BOl RI=INTCRND (RD) *15+1) 

BO2 FORZL=1TO1S 

8O4 ITFZ(Z1)=R1ITHENBOT 

° 806 IFZ1=R1THENZ (Z1)=R1:GOTO809 

808 NEXT 

809 IF ZI LOTHENPOREL1, 32: POKEL2, Z1+48:6 
OTO811 

810 POKEL1,49:POKEL2, (Z1-10) +48 

Bii IFPEEK (U) =49THENS20 

814 IFPEEK (CV) =SOTHENSSO 

820 SL=S5L+R1i 

822 S6=INT(SL/100) :SS=INT(SL/10) :54=5L—- 
(INT (SL/10) X10) 

823 IFSS>9THENSS=S5-10 

S45 POKEGS, $6+48: POKEG2, S5+48: POKEG1, S54 
+493 

846 IFSLISOTHENGOSUB4S: PRINT" FLAYER ONE 
WINS"SL" TO "SR: END . 

848 IFSL+SR=120THENGOSUB4S: PRINT" TIE GAM 
E'S END 

849 RETURN 

B50 SR=SR+R1 


AARDVARK 


TECHNICAL SERVICES 
2352 South Commerce 
Walled Lake, MI 48088 


a: is 


. 


> 
) 


( y 


? 
aoe SS=INT (SR/Y80) sS2=INT (SR/10) 1S1i1=SR- 
CINT (SR/10) K10O) 
858 [FS2°9THENS2=S2-10 


* 995 POKEUS, S3+48:POKEI2, $2+48:POKEd1,91 


+48 


896 IFSR260THENGOSUB4:FRINT"FPLAYER TWO / 


JWINS"SR" TO "St: END 


3 
s 
a] 


* 


2 
2 
a) 


* 1000 T=?E:FORY=53 355 


B°8 IFSL+SR=120THENS48 
899 RETURN 


I 
CG 
ay 
4 
Cf 
Re) 
ha 
of 
a 
Tj 
Tl 
td 
bh 
a 
TH 
mi 
Hh 
BJ 


OTHENI=19 
1020 POKEY,I:I=I-1: 
1040 FORY=53352T0S3 

I=49 
1050 POREY, I: I=I+1:NEXT:POKESS991, 20 
1071 POKES4054, 49: POKES4055, 38:FPOKES405 

&, SO: RETURN 
2000 PRINT'FUSH NUMBERS AS SHOWN" : PRINT 
2010 FRINTON CRT TO SHOOT IN":PRINT 
2020 PRINT'DIRECTION OF ARROW" :FRINTIFR 

INT 
2030 PRINT"PUSH 8 AND O TO MOVE":PRINT 

2040 PRINT"CUEBALL AFTER A SCRATCH":FRI 

NT:FRINT 

2050 PRINT"PUSH 9 TO PREPARE TO":PRINT 

2060 PRINT"SHOOT AFTER A SCRATCH":PRINT 

PRINT 


NEXT: T=30 
S44STEP S32: IF IS=S6THEN 


2070 PRINTSF IRS) ONE TQ GEL 61.WiNh” 
2072 PRINTSPUSH 1 AND RET. TO. .SHOOT FIRS 
T SHOT® 

2077 INFUTA 

2080 ITFA=1THENIS 

2935 GOTO2ZOO0O 


